Changeset 1312 for trunk/NEMO/TOP_SRC/SED/sedwri.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SED/sedwri.F90
r1310 r1312 58 58 ! Define frequency of output and means 59 59 zdt = dtsed 60 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 61 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 62 ENDIF 60 63 #if defined key_diainstant 61 64 zsto = nwrised * zdt 62 !! clop = "inst(x)" ! no use of the mask value (require less cpu time) 63 clop="inst(only(x))" ! put 1.e+20 on land (very expensive!!) 65 clop = "inst("//TRIM(clop)//")" 64 66 #else 65 67 zsto = zdt 66 !! clop = "ave(x)" ! no use of the mask value (require less cpu time) 67 clop="ave(only(x))" ! put 1.e+20 on land (very expensive!!) 68 clop = "ave("//TRIM(clop)//")" 68 69 #endif 69 70 zout = nwrised * zdt
Note: See TracChangeset
for help on using the changeset viewer.