Changeset 4800 for LMDZ6/branches/SETHET_DECOUPLE/libf/phylmd/phys_output_mod.F90

Timestamp:

Feb 2, 2024, 5:11:05 PM (9 months ago)

Author:

nfevrier

Message:

First save of N. Février's modifications

File:

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

LMDZ6/branches/SETHET_DECOUPLE/libf/phylmd/phys_output_mod.F90

@@ -501 +501 @@
                            tname(iiq),'Tracer '//ttext(iiq), "-",  &
                            (/ '', '', '', '', '', '', '', '', '', '' /))
-            o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), &
+            o_dtr_vdf(iq-nqo) = ctrl_out((/ 5, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_vdf',  &
                               'Tendance tracer '//ttext(iiq), "-" , &
@@ -566 +566 @@
                                  (/ '', '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_dry(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), &
+            o_dtr_dry(iq-nqo) = ctrl_out((/ 5, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), &
                               'cum'//'d'//trim(tname(iq))//'_dry', &
                               'tracer tendency dry deposition'//ttext(iiq), "-", &