Changeset 3683 for trunk/LMDZ.PLUTO/libf/phypluto/optcv_pluto_mod.F90

Timestamp:

Mar 14, 2025, 2:28:44 PM (5 months ago)

Author:

debatzbr

Message:

Solves random variations of the SW heating at the model top
BBT

File:

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

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

@@ -138 +138 @@
   end do
 
-!     we ignore K=1... hope this is ok...
+  ! We ignore K = 1... Hope this is ok...
   do K=2,L_LEVELS
+
+     ! JL18: It seems to be good to have aerosols in the first "radiative layer" of the gcm in the IR
+     ! but visible does not handle very well diffusion in first layer.
+     ! This solves random variations of the sw heating at the model top. 
+     if (K < 3) TAEROS(K,:,:) = 0.0
 
      do NW=1,L_NSPECTV