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

Timestamp:

10/17/17 23:11:14 (7 years ago)

Author:

dubos

Message:

devel : finalize diagnostics of tracer fluxes

File:

• codes/icosagcm/devel/src/diagnostics/observable.f90 (modified) (1 diff)

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

@@ -163 +163 @@
     IF(.NOT. init) THEN
        IF(diagflux_on) THEN
-          CALL flux_centered_lonlat(1./(itau_out*dt) , f_qfluxt, f_qfluxt_lon, f_qfluxt_lat)
+          CALL output_field("mass_t", f_masst)
+          CALL output_field("qmass_t", f_qmasst)
+          CALL flux_centered_lonlat(1./(itau_out*dt) , f_massfluxt, f_qfluxt, &
+               f_buf_ulon, f_buf_ulat, f_qfluxt_lon, f_qfluxt_lat)
+          CALL output_field("massflux_lon",f_buf_ulon)
+          CALL output_field("massflux_lat",f_buf_ulat)
           CALL output_field("qflux_lon",f_qfluxt_lon)
           CALL output_field("qflux_lat",f_qfluxt_lat)