Ignore:
Timestamp:
Jul 4, 2025, 12:12:40 PM (3 days ago)
Author:
lguez
Message:

Correct indentation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90

    r5729 r5757  
    11MODULE RADIATION_SETUP
    22
    3 ! RADIATION_SETUP - Setting up modular radiation scheme
    4 !
    5 ! AUTHOR
    6 ! ------
    7 !   Robin Hogan, ECMWF
    8 !   Original: 2015-09-16
    9 !
    10 ! MODIFICATIONS
    11 ! -------------
    12 !   Abderrahmane Idelkadi LMD, juillet 2023
    13 !
    14 !-----------------------------------------------------------------------
     3  ! RADIATION_SETUP - Setting up modular radiation scheme
     4  !
     5  ! AUTHOR
     6  ! ------
     7  !   Robin Hogan, ECMWF
     8  !   Original: 2015-09-16
     9  !
     10  ! MODIFICATIONS
     11  ! -------------
     12  !   Abderrahmane Idelkadi LMD, juillet 2023
     13  !
     14  !-----------------------------------------------------------------------
    1515
    1616  USE PARKIND1,         ONLY : JPRB
     
    5252  ! to print lots of information during the setup stage (default is
    5353  ! no).
    54 ! AI At the end of the routine, the parameters are read in namelist
    55 !   
     54  ! AI At the end of the routine, the parameters are read in namelist
     55  !   
    5656  SUBROUTINE SETUP_RADIATION_SCHEME(LOUTPUT,file_name,rad_config,driver_config)
    5757
    58 !    USE radiation_config, ONLY : config_type, &
    59 !        &                       ISolverMcICA, ISolverSpartacus, &
    60 !        &                       ILiquidModelSlingo, ILiquidModelSOCRATES, &
    61 !        &                       IIceModelFu, IIceModelBaran, &
    62 !        &                       IOverlapExponentialRandom
     58    !    USE radiation_config, ONLY : config_type, &
     59    !        &                       ISolverMcICA, ISolverSpartacus, &
     60    !        &                       ILiquidModelSlingo, ILiquidModelSOCRATES, &
     61    !        &                       IIceModelFu, IIceModelBaran, &
     62    !        &                       IOverlapExponentialRandom
    6363    USE mod_phys_lmdz_para
    64      
     64
    6565    USE YOMHOOK,  ONLY : LHOOK, DR_HOOK
    6666    USE YOMLUN,   ONLY : NULOUT, NULERR
    6767    USE YOESRTWN, ONLY : NMPSRTM
    6868
    69  !   USE radiation_interface,      ONLY : setup_radiation
    70  !   USE setup_config_from_lmdz,   ONLY : driver_config_type
     69    !   USE radiation_interface,      ONLY : setup_radiation
     70    !   USE setup_config_from_lmdz,   ONLY : driver_config_type
    7171
    7272    ! Whether or not to provide information on the radiation scheme
     
    9090
    9191    ! Configure verbosity of setup of radiation scheme
    92  
     92
    9393    print*,'********** Dans radiation_setup *****************'
    9494
    95 ! AI ATTENTION (parameters read in namelist file)
    96 !    file_name="namelist_ecrad"
     95    ! AI ATTENTION (parameters read in namelist file)
     96    !    file_name="namelist_ecrad"
    9797    call rad_config%read(file_name=file_name)
    9898    call driver_config%read(file_name)
     
    109109    ! results...
    110110    ! Note that NMPSRTM(:)=(/  6, 6, 5, 5, 5, 5, 5, 4, 4, 3, 2, 2, 1, 6 /)
    111 ! AI (6 albedo SW bands)
     111    ! AI (6 albedo SW bands)
    112112    call rad_config%define_sw_albedo_intervals(6, &
    113        &  [0.25e-6_jprb, 0.44e-6_jprb, 0.69e-6_jprb, &
    114        &   1.19e-6_jprb, 2.38e-6_jprb], [1,2,3,4,5,6])
     113         &  [0.25e-6_jprb, 0.44e-6_jprb, 0.69e-6_jprb, &
     114         &   1.19e-6_jprb, 2.38e-6_jprb], [1,2,3,4,5,6])
    115115    ! Likewise between the 16 RRTM longwave bands and the 2 emissivity
    116116    ! inputs (info taken from rrtm_ecrt_140gp_mcica.F90) representing
    117117    ! outside and inside the window region of the spectrum
    118 !     rad_config%i_emiss_from_band_lw = (/ 1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1 /)
    119 ! AI ATTENTION ?????
    120 !!    call rad_config%define_lw_emiss_intervals(3, &
    121 !!         &  (/ 8.0e-6_jprb,13.0e-6_jprb /),  (/ 1,2,1 /))
     118    !     rad_config%i_emiss_from_band_lw = (/ 1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1 /)
     119    ! AI ATTENTION ?????
     120    !!    call rad_config%define_lw_emiss_intervals(3, &
     121    !!         &  (/ 8.0e-6_jprb,13.0e-6_jprb /),  (/ 1,2,1 /))
    122122
    123 !    ! Get spectral weightings for UV and PAR
     123    !    ! Get spectral weightings for UV and PAR
    124124    call rad_config%get_sw_weights(0.2e-6_jprb, 0.4415e-6_jprb, &
    125125         &  NWEIGHT_UV, IBAND_UV, WEIGHT_UV, 'ultraviolet')
     
    128128         &  'photosynthetically active radiation, PAR')
    129129
    130      rad_config%i_aerosol_type_map(1:13) = (/ &
    131            &  -1, &
    132            &  -2, &
    133            &  -3, &
    134            &  -4, &
    135            &  -5, &
    136            &  -6, &
    137            &  -7, &
    138            &   1, &
    139            &   2, &
    140            &   3, &
    141            &  -8, &
    142            &  -9, &
    143            &   4 /)
     130    rad_config%i_aerosol_type_map(1:13) = (/ &
     131         &  -1, &
     132         &  -2, &
     133         &  -3, &
     134         &  -4, &
     135         &  -5, &
     136         &  -6, &
     137         &  -7, &
     138         &   1, &
     139         &   2, &
     140         &   3, &
     141         &  -8, &
     142         &  -9, &
     143         &   4 /)
    144144
    145145
Note: See TracChangeset for help on using the changeset viewer.