Changeset 1312
- Timestamp:
- 2009-02-16T17:35:36+01:00 (15 years ago)
- Location:
- trunk
- Files:
-
- 21 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CONFIG/GYRE/EXP00/namelist
r1278 r1312 39 39 nwrite = 60 ! frequency of write in the output file 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 ln_mskland = .false. ! mask land points (1.e+20) in NetCDF outputs (costly: + ~15%) 41 42 / 42 43 !!====================================================================== -
trunk/CONFIG/GYRE_LOBSTER/EXP00/namelist
r1278 r1312 39 39 nwrite = 360 ! frequency of write in the output file 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 41 42 / 42 43 !!====================================================================== -
trunk/CONFIG/ORCA2_LIM/EXP00/1_namelist
r1278 r1312 39 39 nwrite = 10950 ! frequency of write in the output file 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 41 42 / 42 43 !!====================================================================== -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist
r1278 r1312 39 39 nwrite = 5475 ! frequency of write in the output file 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 41 42 / 42 43 !!====================================================================== -
trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist
r1278 r1312 39 39 nwrite = 5475 ! frequency of write in the output file 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 41 42 / 42 43 !!====================================================================== -
trunk/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r1292 r1312 30 30 nstock = 7300 ! frequency of creation of a restart file 31 31 nwrite = 7300 ! frequency of write in the output file 32 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 32 33 / 33 34 !----------------------------------------------------------------------- -
trunk/NEMO/C1D_SRC/diawri_c1d.F90
r1310 r1312 90 90 zdt = rdt 91 91 IF( nacc == 1 ) zdt = rdtmin 92 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 93 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 94 ENDIF 92 95 #if defined key_diainstant 93 96 zsto = nwrite * zdt 94 clop = "inst(x)" ! no use of the mask value (require less cpu time) 95 !!! clop="inst(only(x))" ! put 1.e+20 on land (very expensive!!) 97 clop = "inst("//TRIM(clop)//")" 96 98 #else 97 99 zsto=zdt 98 clop="ave(x)" ! no use of the mask value (require less cpu time) 99 !!! clop="ave(only(x))" ! put 1.e+20 on land (very expensive!!) 100 clop = "ave("//TRIM(clop)//")" 100 101 #endif 101 102 zout = nwrite * zdt -
trunk/NEMO/LIM_SRC_2/limwri_2.F90
r1310 r1312 99 99 100 100 zsto = rdt_ice 101 !!Chris clop = "ave(only(x))" !ibug namelist parameter a ajouter 102 clop = "ave(x)" 101 IF( ln_mskland ) THEN ; clop = "ave(only(x))" ! put 1.e+20 on land (very expensive!!) 102 ELSE ; clop = "ave(x)" ! no use of the mask value (require less cpu time) 103 ENDIF 103 104 zout = nwrite * rdt_ice / nn_fsbc 104 105 niter = 0 -
trunk/NEMO/LIM_SRC_3/limwri.F90
r1310 r1312 137 137 138 138 zsto = rdt_ice 139 clop = "ave(x)" 139 IF( ln_mskland ) THEN ; clop = "ave(only(x))" ! put 1.e+20 on land (very expensive!!) 140 ELSE ; clop = "ave(x)" ! no use of the mask value (require less cpu time) 141 ENDIF 140 142 zout = nwrite * rdt_ice / nn_fsbc 141 143 niter = 0 -
trunk/NEMO/OFF_SRC/DOM/domain.F90
r1152 r1312 110 110 NAMELIST/namrun/ no , cexper , ln_rstart , nrstdt , nit000, & 111 111 & nitend, ndate0 , nleapy , ninist , nstock, & 112 & nwrite 112 & nwrite, ln_mskland 113 113 114 114 NAMELIST/namctl/ ln_ctl , nprint, nictls, nictle, & … … 147 147 WRITE(numout,*) ' frequency of restart file nstock = ', nstock 148 148 WRITE(numout,*) ' frequency of output file nwrite = ', nwrite 149 WRITE(numout,*) ' mask land points ln_mskland = ', ln_mskland 149 150 ENDIF 150 151 -
trunk/NEMO/OFF_SRC/IOM/in_out_manager.F90
r1152 r1312 35 35 LOGICAL :: ln_dimgnnn = .FALSE. !: type of dimgout. (F): 1 file for all proc 36 36 !: (T): 1 file per proc 37 LOGICAL :: ln_mskland = .FALSE. !: mask land points in NetCDF outputs (costly: + ~15%) 37 38 !!---------------------------------------------------------------------- 38 39 !! was in restart but moved here because of the OFF line... better solution should be found... -
trunk/NEMO/OPA_SRC/DIA/diagap.F90
r1310 r1312 153 153 ! Define frequency of output and means 154 154 zsto = ngap * zdt 155 clop = "ave(x)" 155 IF( ln_mskland ) THEN ; clop = "ave(only(x))" ! put 1.e+20 on land (very expensive!!) 156 ELSE ; clop = "ave(x)" ! no use of the mask value (require less cpu time) 157 ENDIF 156 158 zout = ngap * zdt 157 159 zmax = FLOAT( nitend - nit000 + 1 ) * zdt -
trunk/NEMO/OPA_SRC/DIA/diaptr.F90
r1310 r1312 426 426 zdt = rdt 427 427 IF( nacc == 1 ) zdt = rdtmin 428 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 429 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 430 ENDIF 428 431 #if defined key_diainstant 429 zsto = nf_ptr * zdt 430 clop = "inst(x)" ! no use of the mask value (require less cpu time) 431 !!! clop="inst(only(x))" ! put 1.e+20 on land (very expensive!!) 432 zsto = nf_ptr * zdt 433 clop = "inst("//TRIM(clop)//")" 432 434 #else 433 zsto = zdt 434 clop = "ave(x)" ! no use of the mask value (require less cpu time) 435 !!! clop="ave(only(x))" ! put 1.e+20 on land (very expensive!!) 435 zsto=zdt 436 clop = "ave("//TRIM(clop)//")" 436 437 #endif 437 438 zout = nf_ptr * zdt -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1310 r1312 129 129 zdt = rdt 130 130 IF( nacc == 1 ) zdt = rdtmin 131 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 132 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 133 ENDIF 131 134 #if defined key_diainstant 132 135 zsto = nwrite * zdt 133 clop = "inst(x)" ! no use of the mask value (require less cpu time) 134 !!! clop="inst(only(x))" ! put 1.e+20 on land (very expensive!!) 136 clop = "inst("//TRIM(clop)//")" 135 137 #else 136 138 zsto=zdt 137 clop="ave(x)" ! no use of the mask value (require less cpu time) 138 !!! clop="ave(only(x))" ! put 1.e+20 on land (very expensive!!) 139 clop = "ave("//TRIM(clop)//")" 139 140 #endif 140 141 zout = nwrite * zdt -
trunk/NEMO/OPA_SRC/DOM/domain.F90
r1241 r1312 142 142 NAMELIST/namrun/ no , cexper, cn_ocerst_in, cn_ocerst_out, ln_rstart, nrstdt, & 143 143 & nit000, nitend, ndate0 , nleapy , ninist , nstock, & 144 & nwrite, ln_dimgnnn 144 & nwrite, ln_dimgnnn, ln_mskland 145 145 146 146 NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, nmsh , & … … 174 174 WRITE(numout,*) ' frequency of output file nwrite = ', nwrite 175 175 WRITE(numout,*) ' multi file dimgout ln_dimgnnn = ', ln_dimgnnn 176 WRITE(numout,*) ' mask land points ln_mskland = ', ln_mskland 176 177 ENDIF 177 178 -
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r1239 r1312 39 39 LOGICAL :: ln_dimgnnn = .FALSE. !: type of dimgout. (F): 1 file for all proc 40 40 !: (T): 1 file per proc 41 LOGICAL :: ln_mskland = .FALSE. !: mask land points in NetCDF outputs (costly: + ~15%) 41 42 !!---------------------------------------------------------------------- 42 43 !! was in restart but moved here because of the OFF line... better solution should be found... -
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 -
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 -
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 -
trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1310 r1312 1391 1391 ! II.1 Define frequency of output and means 1392 1392 ! ----------------------------------------- 1393 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 1394 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 1395 ENDIF 1393 1396 # if defined key_diainstant 1394 1397 IF( .NOT. ln_trdmld_trc_instant ) THEN … … 1396 1399 ENDIF 1397 1400 zsto = ntrd_trc * rdt 1398 clop = "inst(only(x))"1401 clop = "inst("//TRIM(clop)//")" 1399 1402 # else 1400 1403 IF( ln_trdmld_trc_instant ) THEN … … 1403 1406 zsto = ntrd_trc * rdt ! mean diags : we DO NOT use any IOIPSL time averaging 1404 1407 ENDIF 1405 clop = "ave(only(x))"1408 clop = "ave("//TRIM(clop)//")" 1406 1409 # endif 1407 1410 zout = ntrd_trc * rdt -
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.