Changeset 110 for codes/icosagcm/trunk/src/caldyn_adv.f90

Timestamp:

08/07/12 19:10:05 (12 years ago)

Author:

ymipsl

Message:

Correction for dcmip moist physics
Temperature is ouput instead of virtual temperature.

YM

File:

• codes/icosagcm/trunk/src/caldyn_adv.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/caldyn_adv.f90

@@ -79 +79 @@
   
   
-  SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_dps, f_dtheta_rhodz, f_du)
+  SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
   USE icosa
   USE vorticity_mod
@@ -90 +90 @@
   TYPE(t_field),POINTER :: f_theta_rhodz(:)
   TYPE(t_field),POINTER :: f_u(:)
+  TYPE(t_field),POINTER :: f_q(:)
   TYPE(t_field),POINTER :: f_dps(:)
   TYPE(t_field),POINTER :: f_dtheta_rhodz(:)