Changeset 728 for codes/icosagcm/devel/src/diagnostics/observable.f90

Timestamp:

08/23/18 17:38:00 (6 years ago)

Author:

dubos

Message:

devel : diagnose consistent kinetic energy using new req_z1_scal (r711)

File:

• codes/icosagcm/devel/src/diagnostics/observable.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/diagnostics/observable.f90

@@ -46 +46 @@
     USE theta2theta_rhodz_mod
     USE omega_mod
+    USE kinetic_mod
+
     LOGICAL, INTENT(IN) :: init
     INTEGER :: l
@@ -155 +157 @@
        CALL vertical_interp(f_pmid,f_buf_i,f_buf_s,50000.)
        CALL output_field("omega500",f_buf_s)
+    END IF
+
+    CALL kinetic(f_u, f_buf_i)
+    IF(init) THEN
+       CALL output_field("kinetic_trisk_init",f_buf_i)
+    ELSE
+       CALL output_field("kinetic_trisk",f_buf_i)
+    END IF
+
+    CALL kinetic_new(f_u, f_buf_v, f_buf_i)
+    IF(init) THEN
+       CALL output_field("kinetic_init",f_buf_i)
+    ELSE
+       CALL output_field("kinetic",f_buf_i)
     END IF