- Timestamp:
- 2018-08-02T16:11:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r8280 r10026 218 218 ENDIF 219 219 #endif 220 221 ! in case of iceshelf definition of iceshelf surface mask (1 under 222 ! iceshelf and 0 elsewhere 223 ssisfmask = (1._wp - tmask(:,:,1)) * ssmask(:,:) 224 220 225 !!gm end 221 226
Note: See TracChangeset
for help on using the changeset viewer.