Changeset 182 for codes/icosagcm/trunk/src/caldyn_gcm.f90

Timestamp:

12/15/13 09:16:03 (11 years ago)

Author:

dubos

Message:

fixed shallow-water hydrostatic balance

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -245 +245 @@
           theta = f_theta(ind)
           qu=f_qu(ind)
+          qv=f_qv(ind)
           CALL compute_pvort(ps,u,theta_rhodz, mass,theta,qu,qv)
           pk = f_pk(ind)