Changeset 4489 for LMDZ6/trunk/libf/phylmd/ecrad/radiation_cloud_cover.F90
- Timestamp:
- Mar 31, 2023, 8:42:57 PM (17 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/LMDZ_ECRad (added) merged: 4175,4177-4183,4188,4192,4200-4203,4355,4366,4387-4388,4390,4444,4482,4486,4488
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation_cloud_cover.F90
r3908 r4489 253 253 & + (1.0_jprb - overlap_alpha) & 254 254 & * (frac(jlev)+frac(jlev+1)-frac(jlev)*frac(jlev+1)) 255 255 ! Added for DWD (2020) 256 #ifdef __SX__ 257 end do 258 do jlev = 1,nlev-1 259 #endif 256 260 if (frac(jlev) >= MaxCloudFrac) then 257 261 ! Cloud cover has reached one
Note: See TracChangeset
for help on using the changeset viewer.