- Timestamp:
- Mar 19, 2024, 3:34:21 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_cloud_cover.F90
r4773 r4853 19 19 ! 2020-10-07 R. Hogan Ensure iobj1 initialized in case of alpha_obj==0 20 20 21 #include "ecrad_config.h" 22 21 23 module radiation_cloud_cover 22 24 … … 254 256 & * (frac(jlev)+frac(jlev+1)-frac(jlev)*frac(jlev+1)) 255 257 ! Added for DWD (2020) 256 #ifdef __SX__258 #ifdef DWD_VECTOR_OPTIMIZATIONS 257 259 end do 258 260 do jlev = 1,nlev-1
Note: See TracChangeset
for help on using the changeset viewer.