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

Timestamp:

06/08/16 02:55:08 (8 years ago)

Author:

dubos

Message:

Fixed output of phis

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -150 +150 @@
     CALL transfert_request(f_phis,req_i0) 
     CALL transfert_request(f_phis,req_i1) 
-    CALL writefield("phis",f_phis,once=.TRUE.)
 
     CALL init_message(f_ps,req_i0,req_ps0)
@@ -251 +250 @@
        IF (mod(it,itau_out)==0 ) THEN
           CALL transfert_request(f_u,req_e1_vect)
-          CALL write_output_fields_basic(f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
+          CALL write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
        ENDIF