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

Timestamp:

08/06/15 10:51:35 (9 years ago)

Author:

dubos

Message:

Moved output of dyn fields out of caldyn_gcm

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -30 +30 @@
   USE icosa
   USE dissip_gcm_mod
+  USE observable_mod
   USE caldyn_mod
   USE etat0_mod
@@ -131 +132 @@
     CALL init_dissip
     CALL init_sponge
+    CALL init_observable
     CALL init_caldyn
     CALL init_guided
@@ -157 +159 @@
   USE caldyn_mod
   USE caldyn_gcm_mod, ONLY : req_ps, req_mass
+  USE observable_mod
   USE etat0_mod
   USE guided_mod
@@ -242 +245 @@
     IF (mod(it,itau_out)==0 ) THEN
       CALL update_time_counter(dt*it)
-      CALL output_field("q",f_q)
+      CALL write_output_fields_basic(f_ps, f_u, f_q)
+!      CALL output_field("q",f_q)
     ENDIF