Changeset 5473 for LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Jan 13, 2025, 11:22:23 AM (24 hours ago)

Author:

jyg

Message:

output the total wet deposit of tracers (convective + large scale)

File:

• LMDZ6/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

@@ -172 +172 @@
     ALLOCATE(o_dtr_evapls(nqtot),o_dtr_ls(nqtot),o_dtr_trsp(nqtot))
     ALLOCATE(o_dtr_sscav(nqtot),o_dtr_sat(nqtot),o_dtr_uscav(nqtot))
-    ALLOCATE(o_dtr_wet_con(nqtot))
+    ALLOCATE(o_dtr_wet_cv(nqtot), o_dtr_wet(nqtot))
     ALLOCATE(o_dtr_dry(nqtot),o_dtr_vdf(nqtot))
 IF (CPPKEY_STRATAER) THEN
@@ -542 +542 @@
 
             lnam = 'tracer convective wet deposition'//TRIM(tracers(iq)%longName)
-            tnam = TRIM(dn)//'wet_con';       o_dtr_wet_con       (itr) = ctrl_out(flag, tnam, lnam, "-", [('',i=1,nfiles)])
+            tnam = TRIM(dn)//'wet_cv';       o_dtr_wet_cv       (itr) = ctrl_out(flag, tnam, lnam, "-", [('',i=1,nfiles)])
+            lnam = 'tracer total wet deposition'//TRIM(tracers(iq)%longName)
+            tnam = TRIM(dn)//'wet';       o_dtr_wet       (itr) = ctrl_out(flag, tnam, lnam, "-", [('',i=1,nfiles)])
             lnam = 'tracer tendency dry deposition'//TRIM(tracers(iq)%longName)
             tnam = 'cum'//TRIM(dn)//'dry';  o_dtr_dry       (itr) = ctrl_out(flag, tnam, lnam, "-", [('',i=1,nfiles)])