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

Timestamp:

02/04/13 15:15:35 (11 years ago)

Author:

dubos

Message:

Changed timeloop design for multistage schemes

File:

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

codes/icosagcm/trunk/src/caldyn.f90

@@ -30 +30 @@
   END SUBROUTINE init_caldyn
   
-  SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
+  SUBROUTINE caldyn(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
   USE icosa
   USE caldyn_gcm_mod, ONLY : caldyn_gcm=>caldyn
   USE caldyn_adv_mod, ONLY : caldyn_adv=>caldyn
   IMPLICIT NONE
-  INTEGER,INTENT(IN)    :: it
+  LOGICAL,INTENT(IN)    :: write_out
   TYPE(t_field),POINTER :: f_phis(:)
   TYPE(t_field),POINTER :: f_ps(:)
@@ -47 +47 @@
     SELECT CASE (TRIM(caldyn_type))
       CASE('gcm')
-        CALL caldyn_gcm(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
+        CALL caldyn_gcm(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
       CASE('adv')
-        CALL caldyn_adv(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
+        CALL caldyn_adv(write_out,f_phis, f_ps, f_theta_rhodz, f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
     END SELECT