Changeset 3844 for trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

Timestamp:

Jul 13, 2025, 10:11:41 PM (2 weeks ago)

Author:

tbertrand

Message:

Pluto PCM
CO cycle now possible with the option no_n2frost (CO condensation and sublimation is limited to within the N2 ice deposits only).
NLTE factor 0.33 on the cooling rates now removed in callcorrk.
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

@@ -1100 +1100 @@
             dtlw_nu(l,nw)=dtlw_nu(l,nw)*eps_nlte_lw(ig,l)
           else
-            !dtlw_nu(l,nw)=1.*dtlw_nu(l,nw) ! no CO correction (Strobbel 1996)
-            dtlw_nu(l,nw)=0.33*dtlw_nu(l,nw) ! CO correction (Strobbel 1996)
-!               dtlw_co(ig,l)=dtlw_co(ig,l)+ dtlw_nu(l,nw) ! diagnostic
+            dtlw_nu(l,nw)=1.*dtlw_nu(l,nw) ! no CO correction (Strobbel 1996)
+            !dtlw_nu(l,nw)=0.33*dtlw_nu(l,nw) ! CO correction (Strobbel 1996)
+            !dtlw_co(ig,l)=dtlw_co(ig,l)+ dtlw_nu(l,nw) ! diagnostic
           end if
           dtlw(ig,l)=dtlw(ig,l)+ dtlw_nu(l,nw) !average now on each wavelength