Changeset 1312 for trunk/NEMO/OPA_SRC/TRD/trdvor.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdvor.F90
r1310 r1312 539 539 ! II.1 Define frequency of output and means 540 540 ! ----------------------------------------- 541 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 542 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 543 ENDIF 541 544 #if defined key_diainstant 542 545 zsto = nwrite*rdt 543 clop = "inst(x)"546 clop = "inst("//TRIM(clop)//")" 544 547 #else 545 548 zsto = rdt 546 clop = "ave(x)"549 clop = "ave("//TRIM(clop)//")" 547 550 #endif 548 551 zout = ntrd*rdt
Note: See TracChangeset
for help on using the changeset viewer.