Changeset 3853 for LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/iophy.F90
- Timestamp:
- Feb 23, 2021, 4:01:34 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/iophy.F90
r3488 r3853 1227 1227 1228 1228 nlev=SIZE(field,2) 1229 IF (nlev.EQ.klev+1) THEN 1230 nlevx=klev 1231 ELSE 1232 nlevx=nlev 1233 ENDIF 1229 nlevx=nlev 1230 ! IF (nlev.EQ.klev+1) THEN 1231 ! nlevx=klev 1232 ! ELSE 1233 ! nlevx=nlev 1234 ! ENDIF 1234 1235 1235 1236 IF (SIZE(field,1) == klon) then
Note: See TracChangeset
for help on using the changeset viewer.