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

Timestamp:

06/27/13 18:37:27 (11 years ago)

Author:

dubos

Message:

Lagrangian vertical coordinate tested with test4.1 - 60 MPI procs

File:

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

codes/icosagcm/trunk/src/caldyn.f90

@@ -32 +32 @@
   
   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)
+       f_hflux, f_wflux, f_dps, f_dmass, f_dtheta_rhodz, f_du)
   USE icosa
   USE caldyn_gcm_mod, ONLY : caldyn_gcm=>caldyn
@@ -47 +47 @@
   TYPE(t_field),POINTER :: f_wflux(:)
   TYPE(t_field),POINTER :: f_dps(:)
+  TYPE(t_field),POINTER :: f_dmass(:)
   TYPE(t_field),POINTER :: f_dtheta_rhodz(:)
   TYPE(t_field),POINTER :: f_du(:)
@@ -53 +54 @@
       CASE('gcm')
         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)
+             f_hflux, f_wflux, f_dps, f_dmass, f_dtheta_rhodz, f_du)
       CASE('adv')
         CALL caldyn_adv(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, &