Changeset 1312 for trunk/NEMO/TOP_SRC/trcdia.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcdia.F90
r1310 r1312 123 123 ! Define frequency of output and means 124 124 zdt = rdt 125 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 126 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 127 ENDIF 125 128 # if defined key_diainstant 126 129 zsto = nwritetrc * rdt 127 clop = 'inst(only(x))'130 clop = "inst("//TRIM(clop)//")" 128 131 # else 129 132 zsto = zdt 130 clop = 'ave(only(x))'133 clop = "ave("//TRIM(clop)//")" 131 134 # endif 132 135 zout = nwritetrc * zdt
Note: See TracChangeset
for help on using the changeset viewer.