Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (3 months ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_homogeneous_lw.F90

    r3908 r5158  
    119119
    120120    ! Loop through columns
    121     do jcol = istartcol,iendcol
     121    DO jcol = istartcol,iendcol
    122122
    123123      ! Is there any cloud in the profile?
    124124      is_cloudy_profile = .false.
    125       do jlev = 1,nlev
     125      DO jlev = 1,nlev
    126126        if (cloud%fraction(jcol,jlev) >= config%cloud_fraction_threshold) then
    127127          is_cloudy_profile = .true.
     
    135135      ! the clear-sky layers since these will be needed when we come
    136136      ! to do the total-sky fluxes.
    137       do jlev = 1,nlev
     137      DO jlev = 1,nlev
    138138        if (config%do_clear .or. cloud%fraction(jcol,jlev) &
    139139             &                 < config%cloud_fraction_threshold) then
     
    201201      ! now.
    202202      if (is_cloudy_profile .or. .not. config%do_clear) then
    203         do jlev = 1,nlev
     203        DO jlev = 1,nlev
    204204          ! Compute combined gas+aerosol+cloud optical properties;
    205205          ! note that for clear layers, the reflectance and
Note: See TracChangeset for help on using the changeset viewer.