Changeset 3946 for LMDZ6/trunk/libf/phylmd/ecrad/radiation_scheme.F90

Timestamp:

Jun 21, 2021, 7:50:50 AM (3 years ago)

Author:

idelkadi

Message:

Correction: initialization of variables

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation_scheme.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/ecrad/radiation_scheme.F90

@@ -513 +513 @@
 !CALL CLOUD_OVERLAP_DECORR_LEN(KIDIA, KFDIA, KLON, PGEMU, YRERAD%NDECOLAT, &
 !     &    ZDECORR_LEN_KM, PDECORR_LEN_RATIO=ZDECORR_LEN_RATIO)
-! AI
-ZDECORR_LEN_RATIO = 0.5
+! AI ATTENTION a revoir
+ZDECORR_LEN_RATIO = 0.5_JPRB
 rad_config%cloud_inhom_decorr_scaling = ZDECORR_LEN_RATIO
+ZDECORR_LEN_KM = 2000.0_JPRB
 DO JLON = KIDIA,KFDIA
   CALL cloud%set_overlap_param(thermodynamics, &
-       &                       ZDECORR_LEN_KM(JLON)*1000.0_JPRB, &
+       &                       ZDECORR_LEN_KM(JLON), &
        &                       istartcol=JLON, iendcol=JLON)
 ENDDO