Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo.F90
- Timestamp:
- Aug 2, 2024, 2:12:03 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo.F90
r5137 r5158 24 24 !! AUTHOR 25 25 !! ------ 26 !! 26 !! R. Séférian * Meteo-France * 27 27 !! 28 28 !! MODIFICATIONS … … 158 158 !! ENDWHERE 159 159 160 doJI = 1, knon160 DO JI = 1, knon 161 161 IF (ZCHL(JI) > 0.02) THEN 162 162 ZNU(JI)=MIN(0.0,0.5*(ZWORK3(JI)-0.3))
Note: See TracChangeset
for help on using the changeset viewer.