Changeset 1316 for trunk/NEMO/TOP_SRC/trcdia.F90
- Timestamp:
- 2009-02-17T16:12:46+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcdia.F90
r1312 r1316 263 263 ! Define frequency of output and means 264 264 zdt = rdt 265 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 266 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 267 ENDIF 265 268 # if defined key_diainstant 266 269 zsto = nwritetrd * rdt 267 clop = 'inst(only(x))'270 clop = "inst("//TRIM(clop)//")" 268 271 # else 269 272 zsto = zdt 270 clop = 'ave(only(x))'273 clop = "ave("//TRIM(clop)//")" 271 274 # endif 272 275 zout = nwritetrd * zdt … … 506 509 ! Define frequency of output and means 507 510 zdt = rdt 511 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 512 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 513 ENDIF 508 514 # if defined key_diainstant 509 515 zsto=nwritedia*zdt 510 clop ='inst(only(x))'516 clop = "inst("//TRIM(clop)//")" 511 517 # else 512 518 zsto=zdt 513 clop ='ave(only(x))'519 clop = "ave("//TRIM(clop)//")" 514 520 # endif 515 521 zout=nwritedia*zdt … … 656 662 ! Define frequency of output and means 657 663 zdt = rdt 664 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 665 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 666 ENDIF 658 667 # if defined key_diainstant 659 668 zsto=nwritebio*zdt 660 clop ='inst(only(x))'669 clop = "inst("//TRIM(clop)//")" 661 670 # else 662 671 zsto=zdt 663 clop ='ave(only(x))'672 clop = "ave("//TRIM(clop)//")" 664 673 # endif 665 674 zout=nwritebio*zdt
Note: See TracChangeset
for help on using the changeset viewer.