- Timestamp:
- Aug 2, 2024, 2:12:03 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_homogeneous_lw.F90
r3908 r5158 119 119 120 120 ! Loop through columns 121 dojcol = istartcol,iendcol121 DO jcol = istartcol,iendcol 122 122 123 123 ! Is there any cloud in the profile? 124 124 is_cloudy_profile = .false. 125 dojlev = 1,nlev125 DO jlev = 1,nlev 126 126 if (cloud%fraction(jcol,jlev) >= config%cloud_fraction_threshold) then 127 127 is_cloudy_profile = .true. … … 135 135 ! the clear-sky layers since these will be needed when we come 136 136 ! to do the total-sky fluxes. 137 dojlev = 1,nlev137 DO jlev = 1,nlev 138 138 if (config%do_clear .or. cloud%fraction(jcol,jlev) & 139 139 & < config%cloud_fraction_threshold) then … … 201 201 ! now. 202 202 if (is_cloudy_profile .or. .not. config%do_clear) then 203 dojlev = 1,nlev203 DO jlev = 1,nlev 204 204 ! Compute combined gas+aerosol+cloud optical properties; 205 205 ! note that for clear layers, the reflectance and
Note: See TracChangeset
for help on using the changeset viewer.