Changeset 584 for codes/icosagcm/devel/src/time

Timestamp:

10/13/17 21:29:09 (7 years ago)

Author:

dubos

Message:

devel : switched indices of 3D vector fields

File:

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

codes/icosagcm/devel/src/time/timeloop_gcm.f90

@@ -168 +168 @@
     USE caldyn_mod
     USE advect_tracer_mod
+    USE diagflux_mod
     USE physics_mod
     USE mpipara
@@ -213 +214 @@
     CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,itau0)  
 
-    CALL trace_on
+    Call trace_on
 
     IF (xios_output) THEN ! we must call update_calendar before any XIOS output
@@ -298 +299 @@
        
        IF(MOD(it,itau_adv)==0) THEN
-          CALL advect_tracer(f_hfluxt,f_wfluxt,f_u, f_q,f_rhodz)  ! update q and rhodz after RK step
+          CALL advect_tracer(diagflux_on, f_hfluxt,f_wfluxt,f_u, f_q,f_rhodz,f_qfluxt)  ! update q and rhodz after RK step
           fluxt_zero=.TRUE.
           ! FIXME : check that rhodz is consistent with ps