Changeset 4864

Timestamp:

Mar 21, 2024, 10:03:49 PM (10 months ago)

Author:

lguez

Message:

Bug fix: correct dimension of zaerosol

zaerosol is meant to receive a cpopy in double precision of m_allaer
for aerosols for which a mass concentration is provided.

File:

• LMDZ6/trunk/libf/phylmd/radlwsw_m.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -332 +332 @@
                ZQ_SNOW(klon,klev)           ! Snow cloud mass mixing ratio (kg/kg) ?
   REAL(KIND=8) ZAEROSOL_OLD(KLON,6,KLEV), &  ! 
-               ZAEROSOL(KLON,KLEV,naero_grp) !
+               ZAEROSOL(KLON,KLEV,naero_spc) !
 ! OUTPUTS
   REAL(KIND=8) ZFLUX_DIR(klon), &           ! Direct compt of surf flux into horizontal plane
@@ -1193 +1193 @@
       DO i = 1, kdlon
       DO k = 1, kflev
-      DO kk= 1, naero_grp
+      DO kk= 1, naero_spc
 !      DO kk=1, NSW
 !
@@ -1359 +1359 @@
           ok_3Deffect, namelist_ecrad_file    
       CALL RADIATION_SCHEME &
-      & (ist, iend, klon, klev, naero_grp, NSW, &
+      & (ist, iend, klon, klev, naero_spc, NSW, &
       & namelist_ecrad_file, ok_3Deffect, &
       & debut, ok_volcan, flag_aerosol_strat, &