Changeset 129 for codes/icosagcm/trunk/src/caldyn_gcm.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_gcm.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -80 +80 @@
   END SUBROUTINE allocate_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 vorticity_mod
@@ -86 +86 @@
     USE theta2theta_rhodz_mod
     IMPLICIT NONE
-    INTEGER,INTENT(IN)    :: it
+    LOGICAL,INTENT(IN)    :: write_out
     TYPE(t_field),POINTER :: f_phis(:)
     TYPE(t_field),POINTER :: f_ps(:)
@@ -168 +168 @@
     END SELECT
 
-    IF (mod(it,itau_out)==0 ) THEN
+    IF (write_out) THEN
        PRINT *,'CALL write_output_fields'
        CALL write_output_fields(f_ps, f_phis, f_dps, f_u, f_theta_rhodz, f_q, &