Changeset 407

Timestamp:

06/09/16 02:13:56 (8 years ago)

Author:

ymipsl

Message:

-Output is call at the end on timestep

YM

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -32 +32 @@
     CHARACTER(len=255) :: def
     
-    IF (xios_output) itau_out=1
+!    IF (xios_output) itau_out=1
     IF (.NOT. enable_io) itau_out=HUGE(itau_out)
 
@@ -248 +248 @@
        ENDIF
 
-       IF (mod(it,itau_out)==0 ) THEN
-          CALL transfert_request(f_u,req_e1_vect)
-          CALL write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
-       ENDIF
-
        CALL guided(it*dt,f_ps,f_theta_rhodz,f_u,f_q)
 
@@ -324 +319 @@
           CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it) 
        ENDIF       
+
+       IF (mod(it,itau_out)==0 ) THEN
+          CALL transfert_request(f_u,req_e1_vect)
+          CALL write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
+       ENDIF
+
     END DO