Changeset 159 for codes/icosagcm/trunk/src/caldyn.f90

Timestamp:

06/25/13 09:32:16 (11 years ago)

Author:

dubos

Message:

Towards Lagrangian vertical coordinate (not there yet)

File:

• codes/icosagcm/trunk/src/caldyn.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/caldyn.f90

@@ -31 +31 @@
   END SUBROUTINE init_caldyn
   
-  SUBROUTINE caldyn(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, &
+  SUBROUTINE caldyn(write_out,f_phis, f_ps, f_mass, f_theta_rhodz, f_u, f_q, &
        f_hflux, f_wflux, f_dps, f_dtheta_rhodz, f_du)
   USE icosa
@@ -40 +40 @@
   TYPE(t_field),POINTER :: f_phis(:)
   TYPE(t_field),POINTER :: f_ps(:)
+  TYPE(t_field),POINTER :: f_mass(:)
   TYPE(t_field),POINTER :: f_theta_rhodz(:)
   TYPE(t_field),POINTER :: f_u(:)
@@ -51 +52 @@
     SELECT CASE (TRIM(caldyn_type))
       CASE('gcm')
-        CALL caldyn_gcm(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, &
+        CALL caldyn_gcm(write_out,f_phis, f_ps, f_mass, f_theta_rhodz, f_u, f_q, &
              f_hflux, f_wflux, f_dps, f_dtheta_rhodz, f_du)
       CASE('adv')