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

Timestamp:

08/01/15 15:05:27 (9 years ago)

Author:

dubos

Message:

Synced with aquaplanet branch HEAT@45 - tested with DCMIP4

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -40 +40 @@
   USE check_conserve_mod
   USE output_field_mod
-  USE write_field
+  USE write_field_mod
   USE theta2theta_rhodz_mod
   USE sponge_mod
@@ -246 +246 @@
 
     DO stage=1,nb_stage
+!       CALL checksum(f_ps)
+!       CALL checksum(f_theta_rhodz)
+!       CALL checksum(f_mass)
        CALL caldyn((stage==1) .AND. (MOD(it,itau_out)==0), &
             f_phis,f_ps,f_mass,f_theta_rhodz,f_u, f_q, &
             f_hflux, f_wflux, f_dps, f_dmass, f_dtheta_rhodz, f_du)
+!       CALL checksum(f_dps)
+!       CALL checksum(f_dtheta_rhodz)
+!       CALL checksum(f_dmass)
        SELECT CASE (scheme)
        CASE(euler)