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

Timestamp:

04/08/16 09:41:16 (8 years ago)

Author:

dubos

Message:

More NH diagnostics - bugfix needed

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -34 +34 @@
     IF (.NOT. enable_io) itau_out=HUGE(itau_out)
     
-    def='ARK2.3'
+    def='RK2.5'
     CALL getin('time_scheme',def)
     SELECT CASE (TRIM(def))
@@ -231 +231 @@
        IF (mod(it,itau_out)==0 ) THEN
           CALL transfert_request(f_u,req_e1_vect)
-          CALL write_output_fields_basic(f_ps, f_u, f_q)
+          CALL write_output_fields_basic(f_ps, f_mass, f_geopot, f_u, f_W, f_q)
        ENDIF