Changeset 15 for trunk/NEMO/OPA_SRC/in_out_manager.F90
- Timestamp:
- 2004-02-17T08:25:44+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/in_out_manager.F90
r3 r15 4 4 USE par_kind 5 5 6 PUBLIC 7 6 8 !!---------------------------------------------------------------------- 7 9 !! namelist parameters 8 10 !! ------------------------------------- 9 11 ! namrun: parameters of the run 10 CHARACTER (len=16) :: & 11 cexper = "exp0" !experiment name used for output filename12 CHARACTER (len=16) :: & !: 13 cexper = "exp0" !: experiment name used for output filename 12 14 13 LOGICAL :: & !! !* namelist namrun *14 ln_rstart = .FALSE. , & ! start from (F) rest or (T) a restart file15 ln_ctl = .FALSE. ! run control for debugging15 LOGICAL :: & !!: * namelist namrun * 16 ln_rstart = .FALSE. , & !: start from (F) rest or (T) a restart file 17 ln_ctl = .FALSE. !: run control for debugging 16 18 17 INTEGER :: & !! !* namelist namrun *18 no = 0 , & ! job number19 nrstdt = 0 , & ! control of the time step (0, 1 or 2)20 nit000 = 1 , & ! index of the first time step21 nitend = 10 , & ! index of the last time step22 ndate0 = 961115 , & ! initial calendar date aammjj23 nleapy = 0 , & ! Leap year calendar flag (0/1 or 30)24 ninist = 0 ! initial state output flag (0/1)19 INTEGER :: & !!: * namelist namrun * 20 no = 0 , & !: job number 21 nrstdt = 0 , & !: control of the time step (0, 1 or 2) 22 nit000 = 1 , & !: index of the first time step 23 nitend = 10 , & !: index of the last time step 24 ndate0 = 961115 , & !: initial calendar date aammjj 25 nleapy = 0 , & !: Leap year calendar flag (0/1 or 30) 26 ninist = 0 !: initial state output flag (0/1) 25 27 !!---------------------------------------------------------------------- 26 28 !! Run control 27 29 !!---------------------------------------------------------------------- 28 30 29 INTEGER :: & ! 30 nstop = 0 , & ! e r r o r flag (=number of reason for a31 ! ! prematurely stop the run)32 nwarn = 0 ! w a r n i n g flag (=number of warning33 ! ! found during the run)31 INTEGER :: & !: 32 nstop = 0 , & !: e r r o r flag (=number of reason for a 33 ! ! prematurely stop the run) 34 nwarn = 0 !: w a r n i n g flag (=number of warning 35 ! ! found during the run) 34 36 35 37 36 CHARACTER (len=64) :: & 37 cform_err="(/,' ===>>> : E R R O R', /,' ===========',/)" , & 38 cform_war="(/,' ===>>> : W A R N I N G', /,' ===============',/)" 38 CHARACTER (len=64) :: & !: 39 cform_err="(/,' ===>>> : E R R O R', /,' ===========',/)" , & !: 40 cform_war="(/,' ===>>> : W A R N I N G', /,' ===============',/)" !: 39 41 !!---------------------------------------------------------------------- 40 42 !! output monitoring 41 43 !! ----------------------------------- 42 44 43 LOGICAL :: & 44 lwp , & ! boolean : true on the 1st processor only45 l_ctl ! = ln_ctl.AND.lwp (print control on the 1st proc)45 LOGICAL :: & !: 46 lwp , & !: boolean : true on the 1st processor only 47 l_ctl !: = ln_ctl.AND.lwp (print control on the 1st proc) 46 48 47 INTEGER :: & 48 nstock = 10 , & ! restart file frequency49 nprint = 0 , & ! level of print (0 no print)50 nwrite = 10 ! restart file frequency49 INTEGER :: & !: 50 nstock = 10 , & !: restart file frequency 51 nprint = 0 , & !: level of print (0 no print) 52 nwrite = 10 !: restart file frequency 51 53 !!---------------------------------------------------------------------- 52 54 !! logical units 53 55 !! ------------------------------ 54 INTEGER :: & 55 numstp = 1 , & ! logical unit for time step 56 numout = 2 , & ! logical unit for output print 57 numnam = 3 , & ! logical unit for namelist 58 numnam_ice = 4 , & ! logical unit for ice namelist 59 nummpp = 8 , & ! logical unit for mpp test print 60 numevo_ice = 17 , & ! logical unit for ice variables (temp. evolution) 61 numsol = 25 , & ! logical unit for solver statistics 62 numwri = 40 , & ! logical unit for output write 63 numisp = 41 , & ! logical unit for island statistics 64 numwrs = 46 , & ! logical unit for output restart 65 numtdt = 62 , & ! logical unit for data temperature 66 numsdt = 63 , & ! logical unit for data salinity 67 numwso = 71 , & ! logical unit for 2d output write 68 numwvo = 72 , & ! logical unit for 3d output write 69 numsst = 65 , & ! logical unit for surface temperature data 70 numgap = 45 , & ! logical unit for differences diagnostic 71 numbol = 67 , & ! logical unit for "bol" diagnostics 72 numptr = 68 , & ! logical unit for Poleward TRansports 73 numflo = 69 ! logical unit for drifting floats 56 INTEGER :: & !: 57 numstp = 1 , & !: logical unit for time step 58 numout = 2 , & !: logical unit for output print 59 numnam = 3 , & !: logical unit for namelist 60 numnam_ice = 4 , & !: logical unit for ice namelist 61 nummpp = 8 , & !: logical unit for mpp test print 62 numevo_ice = 17 , & !: logical unit for ice variables (temp. evolution) 63 numsol = 25 , & !: logical unit for solver statistics 64 numwri = 40 , & !: logical unit for output write 65 numisp = 41 , & !: logical unit for island statistics 66 numwrs = 46 , & !: logical unit for output restart 67 numtdt = 62 , & !: logical unit for data temperature 68 numsdt = 63 , & !: logical unit for data salinity 69 numwso = 71 , & !: logical unit for 2d output write 70 numwvo = 72 , & !: logical unit for 3d output write 71 numsst = 65 , & !: logical unit for surface temperature data 72 numgap = 45 , & !: logical unit for differences diagnostic 73 numbol = 67 , & !: logical unit for "bol" diagnostics 74 numptr = 68 , & !: logical unit for Poleward TRansports 75 numflo = 69 , & !: logical unit for drifting floats 76 ! !: * coupled units 77 numlhf = 71 , & !: unit to transfer fluxes 78 numlws = 72 , & !: unit to transfer stress 79 numlts = 73 , & !: unit to transfer sst 80 numlic = 74 !: unit to transfer ice cover 81 74 82 75 83 !! Contral/debugging 76 84 !! ----------------- 77 REAL(wp) :: & 78 u_ctl, v_ctl, & ! sum of ua and va trend79 t_ctl, s_ctl ! sum of ta and sa trend85 REAL(wp) :: & !: 86 u_ctl, v_ctl, & !: sum of ua and va trend 87 t_ctl, s_ctl !: sum of ta and sa trend 80 88 81 89 END MODULE in_out_manager
Note: See TracChangeset
for help on using the changeset viewer.