Changeset 1312 for trunk/NEMO/LIM_SRC_3/limwri.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limwri.F90
r1310 r1312 137 137 138 138 zsto = rdt_ice 139 clop = "ave(x)" 139 IF( ln_mskland ) THEN ; clop = "ave(only(x))" ! put 1.e+20 on land (very expensive!!) 140 ELSE ; clop = "ave(x)" ! no use of the mask value (require less cpu time) 141 ENDIF 140 142 zout = nwrite * rdt_ice / nn_fsbc 141 143 niter = 0
Note: See TracChangeset
for help on using the changeset viewer.