Changeset 1601 for trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
- Timestamp:
- 2009-08-11T12:09:19+02:00 (15 years ago)
- File:
-
- 1 edited
-
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r1581 r1601 29 29 !! namrun namelist parameters 30 30 !!---------------------------------------------------------------------- 31 CHARACTER(len=16) :: c exper= "exp0" !: experiment name used for output filename31 CHARACTER(len=16) :: cn_exp = "exp0" !: experiment name used for output filename 32 32 CHARACTER(len=32) :: cn_ocerst_in = "restart" !: suffix of ocean restart name (input) 33 33 CHARACTER(len=32) :: cn_ocerst_out = "restart" !: suffix of ocean restart name (output) 34 34 LOGICAL :: ln_rstart = .FALSE. !: start from (F) rest or (T) a restart file 35 INTEGER :: n o= 0 !: job number36 INTEGER :: n rstdt= 0 !: control of the time step (0, 1 or 2)35 INTEGER :: nn_no = 0 !: job number 36 INTEGER :: nn_rstctl = 0 !: control of the time step (0, 1 or 2) 37 37 INTEGER :: nn_rstssh = 0 !: hand made initilization of ssh or not (1/0) 38 INTEGER :: nit000 = 1 !: index of the first time step 39 INTEGER :: nitend = 10 !: index of the last time step 40 INTEGER :: ndate0 = 961115 !: initial calendar date aammjj 41 INTEGER :: nleapy = 0 !: Leap year calendar flag (0/1 or 30) 42 INTEGER :: ninist = 0 !: initial state output flag (0/1) 38 INTEGER :: nn_it000 = 1 !: index of the first time step 39 INTEGER :: nn_itend = 10 !: index of the last time step 40 INTEGER :: nn_date0 = 961115 !: initial calendar date aammjj 41 INTEGER :: nn_leapy = 0 !: Leap year calendar flag (0/1 or 30) 42 INTEGER :: nn_istate = 0 !: initial state output flag (0/1) 43 INTEGER :: nn_write = 10 !: model standard output frequency 44 INTEGER :: nn_stock = 10 !: restart file frequency 43 45 LOGICAL :: ln_dimgnnn = .FALSE. !: type of dimgout. (F): 1 file for all proc 44 46 !: (T): 1 file per proc … … 46 48 LOGICAL :: ln_clobber = .FALSE. !: clobber (overwrite) an existing file 47 49 INTEGER :: nn_chunksz = 0 !: chunksize (bytes) for NetCDF file (working only with iom_nf90 routines) 50 51 !! conversion of DOCTOR norm namelist name into model name 52 !! (this should disappear in a near futur) 53 54 CHARACTER(len=16) :: cexper !: experiment name used for output filename 55 INTEGER :: no !: job number 56 INTEGER :: nrstdt !: control of the time step (0, 1 or 2) 57 INTEGER :: nit000 !: index of the first time step 58 INTEGER :: nitend !: index of the last time step 59 INTEGER :: ndate0 !: initial calendar date aammjj 60 INTEGER :: nleapy !: Leap year calendar flag (0/1 or 30) 61 INTEGER :: ninist !: initial state output flag (0/1) 62 INTEGER :: nwrite !: model standard output frequency 63 INTEGER :: nstock !: restart file frequency 64 48 65 !!---------------------------------------------------------------------- 49 66 !! was in restart but moved here because of the OFF line... better solution should be found... 50 67 !!---------------------------------------------------------------------- 51 68 INTEGER :: nitrst !: time step at which restart file should be written 69 52 70 !!---------------------------------------------------------------------- 53 71 !! output monitoring 54 72 !!---------------------------------------------------------------------- 55 73 LOGICAL :: ln_ctl = .FALSE. !: run control for debugging 56 INTEGER :: nstock = 10 !: restart file frequency 57 INTEGER :: nprint = 0 !: level of print (0 no print) 58 INTEGER :: nwrite = 10 !: restart file frequency 59 INTEGER :: nictls = 0 !: Start i indice for the SUM control 60 INTEGER :: nictle = 0 !: End i indice for the SUM control 61 INTEGER :: njctls = 0 !: Start j indice for the SUM control 62 INTEGER :: njctle = 0 !: End j indice for the SUM control 63 INTEGER :: isplt = 1 !: number of processors following i 64 INTEGER :: jsplt = 1 !: number of processors following j 74 INTEGER :: nn_print = 0 !: level of print (0 no print) 75 INTEGER :: nn_ictls = 0 !: Start i indice for the SUM control 76 INTEGER :: nn_ictle = 0 !: End i indice for the SUM control 77 INTEGER :: nn_jctls = 0 !: Start j indice for the SUM control 78 INTEGER :: nn_jctle = 0 !: End j indice for the SUM control 79 INTEGER :: nn_isplt = 1 !: number of processors following i 80 INTEGER :: nn_jsplt = 1 !: number of processors following j 81 INTEGER :: nn_bench = 0 !: benchmark parameter (0/1) 82 INTEGER :: nn_bit_cmp = 0 !: bit reproducibility (0/1) 83 84 ! !: OLD namelist names 85 INTEGER :: nprint, nictls, nictle, njctls, njctle, isplt, jsplt, nbench, nbit_cmp 86 65 87 INTEGER :: ijsplt = 1 !: nb of local domain = nb of processors 66 INTEGER :: nbench = 0 !: benchmark parameter (0/1) 67 INTEGER :: nbit_cmp = 0 !: bit reproducibility (0/1) 88 68 89 !!---------------------------------------------------------------------- 69 90 !! logical units … … 84 105 !! Run control 85 106 !!---------------------------------------------------------------------- 86 87 107 INTEGER :: nstop = 0 !: error flag (=number of reason for a premature stop run) 88 108 INTEGER :: nwarn = 0 !: warning flag (=number of warning found during the run)
Note: See TracChangeset
for help on using the changeset viewer.
