- Timestamp:
- 2019-06-06T16:21:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GO8_package/src/ICE/icewri.F90
r10888 r11082 145 145 146 146 ! record presence of fast ice 147 WHERE( z2d(:,:) < 5.e-04_wp .AND. zmsk 00(:,:) == 1._wp ) ; zfast(:,:) = 1._wp147 WHERE( z2d(:,:) < 5.e-04_wp .AND. zmsk15(:,:) == 1._wp ) ; zfast(:,:) = 1._wp 148 148 ELSEWHERE ; zfast(:,:) = 0._wp 149 149 END WHERE
Note: See TracChangeset
for help on using the changeset viewer.