Changeset 1312 for trunk/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1310 r1312 129 129 zdt = rdt 130 130 IF( nacc == 1 ) zdt = rdtmin 131 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 132 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 133 ENDIF 131 134 #if defined key_diainstant 132 135 zsto = nwrite * zdt 133 clop = "inst(x)" ! no use of the mask value (require less cpu time) 134 !!! clop="inst(only(x))" ! put 1.e+20 on land (very expensive!!) 136 clop = "inst("//TRIM(clop)//")" 135 137 #else 136 138 zsto=zdt 137 clop="ave(x)" ! no use of the mask value (require less cpu time) 138 !!! clop="ave(only(x))" ! put 1.e+20 on land (very expensive!!) 139 clop = "ave("//TRIM(clop)//")" 139 140 #endif 140 141 zout = nwrite * zdt
Note: See TracChangeset
for help on using the changeset viewer.