Changeset 519 for codes/icosagcm/trunk/src/timeloop_gcm.f90

Timestamp:

12/24/16 02:33:07 (8 years ago)

Author:

dubos

Message:

Fixed RK2.5 - cleanup to follow

File:

• codes/icosagcm/trunk/src/timeloop_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -211 +211 @@
     IF(positive_theta) CALL copy_theta_to_q(f_theta_rhodz,f_rhodz,f_q)
 
+    CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,itau0)  
+
+    CALL trace_on
+
+    IF (xios_output) THEN ! we must call update_calendar before any XIOS output
+      IF (is_omp_master) CALL xios_update_calendar(1)
+    END IF
+    
+    IF (write_start) CALL write_etat0(itau0,f_ps, f_phis,f_theta_rhodz,f_u,f_q)  ! FIXME : write_start undefined
+   
+    CALL write_output_fields_basic(.TRUE., f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
+
     !$OMP MASTER
     CALL SYSTEM_CLOCK(start_clock)
     CALL SYSTEM_CLOCK(count_rate=rate_clock)
     !$OMP END MASTER   
-
-    CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,itau0)  
-
-    CALL trace_on
-
-    IF (xios_output) THEN ! we must call update_calendar before any XIOS output
-      IF (is_omp_master) CALL xios_update_calendar(1)
-    END IF
-    
-    IF (write_start) CALL write_etat0(itau0,f_ps, f_phis,f_theta_rhodz,f_u,f_q)  ! FIXME : write_start undefined
-   
-    CALL write_output_fields_basic(.TRUE., f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
 
     DO it=itau0+1,itau0+itaumax