Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions physics/drag_suite.F90
Original file line number Diff line number Diff line change
Expand Up @@ -377,12 +377,12 @@ subroutine drag_suite_run( &
real(kind=kind_phys), intent(inout) :: &
& dusfc(:), dvsfc(:)
!Output (optional):
real(kind=kind_phys), intent(out) :: &
real(kind=kind_phys), intent(inout) :: &
& dusfc_ms(:),dvsfc_ms(:), &
& dusfc_bl(:),dvsfc_bl(:), &
& dusfc_ss(:),dvsfc_ss(:), &
& dusfc_fd(:),dvsfc_fd(:)
real(kind=kind_phys), intent(out) :: &
real(kind=kind_phys), intent(inout) :: &
& dtaux2d_ms(:,:),dtauy2d_ms(:,:), &
& dtaux2d_bl(:,:),dtauy2d_bl(:,:), &
& dtaux2d_ss(:,:),dtauy2d_ss(:,:), &
Expand Down