Changeset 343

Timestamp:

07/31/15 16:28:00 (9 years ago)

Author:

dubos

Message:

Fix output for pure transport

File:

• codes/icosagcm/trunk/src/caldyn_adv.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/caldyn_adv.f90

@@ -1 +1 @@
 MODULE caldyn_adv_mod
   USE icosa
-
   IMPLICIT NONE
   PRIVATE
@@ -53 +52 @@
        f_hflux, f_wflux, f_dps, f_dtheta_rhodz, f_du)
     USE icosa
+    USE output_field_mod
     USE vorticity_mod
     USE kinetic_mod
@@ -96 +96 @@
 
     IF (write_out) THEN
-       CALL writefield("ps",f_ps)
-       CALL writefield("wflux",f_wflux)
+       CALL output_field("wflux",f_wflux)
+       CALL output_field("ps",f_ps)
     ENDIF
     !    CALL check_mass_conservation(f_ps,f_dps)