Changeset 3946 for LMDZ6/trunk/libf

Timestamp:

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

Author:

idelkadi

Message:

Correction: initialization of variables

Location:

LMDZ6/trunk/libf/phylmd/ecrad

Files:

• radiation_scheme.F90 (modified) (1 diff)
• radiation_setup.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

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

@@ -136 +136 @@
     endif
     ! For the time being, ensure a valid default directory name
-    rad_config%directory_name = '/d3/idelkadi/Ecrad/data'
+    rad_config%directory_name = 'data'
     if (lprint_setp) then
       print*,'rad_config%directory_name =', rad_config%directory_name