Changeset 1312 for trunk/NEMO/OPA_SRC/TRD/trdmld.F90
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdmld.F90
r1310 r1312 824 824 ! II.1 Define frequency of output and means 825 825 ! ----------------------------------------- 826 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 827 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 828 ENDIF 826 829 # if defined key_diainstant 827 830 IF( .NOT. ln_trdmld_instant ) THEN … … 829 832 END IF 830 833 zsto = ntrd * rdt 831 clop = "inst(only(x))"834 clop = "inst("//TRIM(clop)//")" 832 835 # else 833 836 IF( ln_trdmld_instant ) THEN … … 836 839 zsto = ntrd * rdt ! mean diags : we DO NOT use any IOIPSL time averaging 837 840 END IF 838 clop = "ave(only(x))"841 clop = "ave("//TRIM(clop)//")" 839 842 # endif 840 843 zout = ntrd * rdt
Note: See TracChangeset
for help on using the changeset viewer.