Skip to content

Commit e83210f

Browse files
committed
Correct code comments
1 parent 35b2f73 commit e83210f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/dynamics/mpas/dyn_coupling.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -34,9 +34,9 @@ subroutine dynamics_to_physics_coupling()
3434
! `*_int`: Variable is at layer interfaces.
3535
! `*_mid`: Variable is at layer midpoints.
3636
real(kind_r8), allocatable :: pd_int_col(:), & ! Dry hydrostatic air pressure (Pa).
37-
pd_mid_col(:), & ! Dry hydrostatic air pressure (Pa).
37+
pd_mid_col(:), & ! Dry non-hydrostatic air pressure (Pa).
3838
p_int_col(:), & ! Full hydrostatic air pressure (Pa).
39-
p_mid_col(:), & ! Full hydrostatic air pressure (Pa).
39+
p_mid_col(:), & ! Full non-hydrostatic air pressure (Pa).
4040
z_int_col(:) ! Geometric height (m).
4141
real(kind_r8), allocatable :: dpd_col(:), & ! Dry air pressure difference (Pa) between layer interfaces.
4242
dp_col(:), & ! Full air pressure difference (Pa) between layer interfaces.

0 commit comments

Comments
 (0)