Ignore:
Timestamp:
May 25, 2021, 9:07:43 AM (3 years ago)
Author:
idelkadi
Message:

Correction: initialization of the local logical key "lldebug" at the declaration before use

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r3909 r3913  
    210210  LOGICAL, INTENT(in)  :: ok_ade, ok_aie                                 ! switches whether to use aerosol direct (indirect) effects or not
    211211  LOGICAL, INTENT(in)  :: ok_volcan                                      ! produce volcanic diags (SW/LW heat flux and rate)
    212   LOGICAL              :: lldebug
     212  LOGICAL              :: lldebug=.false.
    213213  INTEGER, INTENT(in)  :: flag_aerosol                                   ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
    214214  INTEGER, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
    … …  
    465465  pizaero(:,:,:,:)=0.
    466466  cgaero(:,:,:,:)=0.
    467   lldebug=.FALSE.
     467!  lldebug=.FALSE.
    468468
    469469  ztopsw_aero(:,:)  = 0. !ym missing init : warning : not initialized in SW_AEROAR4
Note: See TracChangeset for help on using the changeset viewer.