Ignore:
Timestamp:
Jun 21, 2021, 7:50:50 AM (3 years ago)
Author:
idelkadi
Message:

Correction: initialization of variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/ecrad/radiation_scheme.F90

    r3908 r3946  
    513513!CALL CLOUD_OVERLAP_DECORR_LEN(KIDIA, KFDIA, KLON, PGEMU, YRERAD%NDECOLAT, &
    514514!     &    ZDECORR_LEN_KM, PDECORR_LEN_RATIO=ZDECORR_LEN_RATIO)
    515 ! AI
    516 ZDECORR_LEN_RATIO = 0.5
     515! AI ATTENTION a revoir
     516ZDECORR_LEN_RATIO = 0.5_JPRB
    517517rad_config%cloud_inhom_decorr_scaling = ZDECORR_LEN_RATIO
     518ZDECORR_LEN_KM = 2000.0_JPRB
    518519DO JLON = KIDIA,KFDIA
    519520  CALL cloud%set_overlap_param(thermodynamics, &
    520        &                       ZDECORR_LEN_KM(JLON)*1000.0_JPRB, &
     521       &                       ZDECORR_LEN_KM(JLON), &
    521522       &                       istartcol=JLON, iendcol=JLON)
    522523ENDDO
Note: See TracChangeset for help on using the changeset viewer.