Skip to content

Commit 473a025

Browse files
committed
comment fix
1 parent 2a80bd2 commit 473a025

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

components/eam/src/dynamics/se/gravity_waves_sources.F90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -167,16 +167,16 @@ subroutine compute_frontogenesis( frontgf, frontga, tl, &
167167
! using a mixture of Cartesian and spherical coordinates
168168
!
169169
! This routine is a modified version of derivative_mod.F90:ugradv_sphere()
170-
! in that the grad(v) term is modified to compute grad_p(v) - the gradient
171-
! on p-surfaces expressed in terms of the gradient on model surfaces and a
172-
! vertical pressure gradient.
170+
! in that the grad(v) term is modified to compute grad_z(v) (or grad_p(v))
171+
! - the gradient on z-surfaces expressed in terms of the gradient on model
172+
! surfaces and a vertical geopotential gradient.
173173
!
174174
! The old version only computed gradients on model surfaces, which creates
175175
! issues around topograpy. This is address with use_fgf_pgrad_correction=.true.
176176
!
177177
! First, v is represented in cartesian coordinates v(c) for c=1,2,3
178-
! For each v(c), we compute its gradient on p-surfaces via:
179-
! grad(v(c)) - d(v(c))/dz grad(p)
178+
! For each v(c), we compute its gradient on z (or p) surfaces via:
179+
! grad(v(c)) - d(v(c))/dz grad(z)
180180
! Each of these gradients is represented in *spherical* coordinates (i=1,2)
181181
!
182182
! We then dot each of these vectors with grad(theta). This dot product is

0 commit comments

Comments
 (0)