- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
-
. (modified) (1 prop)
-
src/OCE/IOM/in_out_manager.F90 (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/IOM/in_out_manager.F90
r11405 r13463 80 80 INTEGER :: nleapy !: Leap year calendar flag (0/1 or 30) 81 81 INTEGER :: ninist !: initial state output flag (0/1) 82 INTEGER :: nwrite !: model standard output frequency83 INTEGER :: nstock !: restart file frequency84 INTEGER, DIMENSION(10) :: nstocklist !: restart dump times85 82 86 83 !!---------------------------------------------------------------------- … … 90 87 LOGICAL :: lrst_oce !: logical to control the oce restart write 91 88 LOGICAL :: lrst_ice !: logical to control the ice restart write 89 LOGICAL :: lrst_abl !: logical to control the abl restart write 92 90 INTEGER :: numror = 0 !: logical unit for ocean restart (read). Init to 0 is needed for SAS (in daymod.F90) 93 91 INTEGER :: numrir !: logical unit for ice restart (read) 92 INTEGER :: numrar !: logical unit for abl restart (read) 94 93 INTEGER :: numrow !: logical unit for ocean restart (write) 95 94 INTEGER :: numriw !: logical unit for ice restart (write) 95 INTEGER :: numraw !: logical unit for abl restart (write) 96 96 INTEGER :: nrst_lst !: number of restart to output next 97 97 … … 99 99 !! output monitoring 100 100 !!---------------------------------------------------------------------- 101 LOGICAL :: ln_ctl !: run control for debugging 102 TYPE :: sn_ctl !: optional use structure for finer control over output selection 103 LOGICAL :: l_config = .FALSE. !: activate/deactivate finer control 104 ! Note if l_config is True then ln_ctl is ignored. 105 ! Otherwise setting ln_ctl True is equivalent to setting 106 ! all the following logicals in this structure True 101 TYPE :: sn_ctl !: structure for control over output selection 107 102 LOGICAL :: l_runstat = .FALSE. !: Produce/do not produce run.stat file (T/F) 108 103 LOGICAL :: l_trcstat = .FALSE. !: Produce/do not produce tracer.stat file (T/F) 109 104 LOGICAL :: l_oceout = .FALSE. !: Produce all ocean.outputs (T) or just one (F) 110 105 LOGICAL :: l_layout = .FALSE. !: Produce all layout.dat files (T) or just one (F) 111 LOGICAL :: l_mppout = .FALSE. !: Produce/do not produce mpp.output_XXXX files (T/F) 112 LOGICAL :: l_mpptop = .FALSE. !: Produce/do not produce mpp.top.output_XXXX files (T/F) 106 LOGICAL :: l_prtctl = .FALSE. !: Produce/do not produce mpp.output_XXXX files (T/F) 107 LOGICAL :: l_prttrc = .FALSE. !: Produce/do not produce mpp.top.output_XXXX files (T/F) 108 LOGICAL :: l_oasout = .FALSE. !: Produce/do not write oasis setup info to ocean.output (T/F) 113 109 ! Optional subsetting of processor report files 114 110 ! Default settings of 0/1000000/1 should ensure all areas report. … … 122 118 LOGICAL :: ln_timing !: run control for timing 123 119 LOGICAL :: ln_diacfl !: flag whether to create CFL diagnostics 124 INTEGER :: nn_print !: level of print (0 no print)125 120 INTEGER :: nn_ictls !: Start i indice for the SUM control 126 121 INTEGER :: nn_ictle !: End i indice for the SUM control … … 129 124 INTEGER :: nn_isplt !: number of processors following i 130 125 INTEGER :: nn_jsplt !: number of processors following j 131 !132 INTEGER :: nprint, nictls, nictle, njctls, njctle, isplt, jsplt !: OLD namelist names133 134 INTEGER :: ijsplt = 1 !: nb of local domain = nb of processors135 126 136 127 !!---------------------------------------------------------------------- … … 142 133 INTEGER :: numnul = -1 !: logical unit for /dev/null 143 134 ! ! early output can be collected; do not change 144 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist145 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist146 135 INTEGER :: numond = -1 !: logical unit for Output Namelist Dynamics 147 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist148 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist149 136 INTEGER :: numoni = -1 !: logical unit for Output Namelist Ice 150 137 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 151 138 INTEGER :: numrun = -1 !: logical unit for run statistics 152 139 INTEGER :: numdct_in = -1 !: logical unit for transports computing 153 INTEGER :: numdct_vol = -1 !: logical unit for vo ulume transports output154 INTEGER :: numdct_heat = -1 !: logical unit for heat 155 INTEGER :: numdct_salt = -1 !: logical unit for salt 140 INTEGER :: numdct_vol = -1 !: logical unit for volume transports output 141 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 142 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 156 143 INTEGER :: numfl = -1 !: logical unit for floats ascii output 157 144 INTEGER :: numflo = -1 !: logical unit for floats ascii output 145 ! 146 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref !: character buffer for reference namelist 147 CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg !: character buffer for configuration specific namelist 148 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_ref !: character buffer for ice reference namelist 149 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_cfg !: character buffer for ice configuration specific namelist 158 150 159 151 !!---------------------------------------------------------------------- … … 162 154 INTEGER :: no_print = 0 !: optional argument of fld_fill (if present, suppress some control print) 163 155 INTEGER :: nstop = 0 !: error flag (=number of reason for a premature stop run) 156 !$AGRIF_DO_NOT_TREAT 157 INTEGER :: ngrdstop = -1 !: grid number having nstop > 1 158 !$AGRIF_END_DO_NOT_TREAT 164 159 INTEGER :: nwarn = 0 !: warning flag (=number of warning found during the run) 165 160 CHARACTER(lc) :: ctmp1, ctmp2, ctmp3 !: temporary characters 1 to 3 … … 167 162 CHARACTER(lc) :: ctmp7, ctmp8, ctmp9 !: temporary characters 7 to 9 168 163 CHARACTER(lc) :: ctmp10 !: temporary character 10 169 CHARACTER(lc) :: cform_err = "(/,' ===>>> : E R R O R', /,' ===========',/)" !:170 CHARACTER(lc) :: cform_war = "(/,' ===>>> : W A R N I N G', /,' ===============',/)" !:171 164 LOGICAL :: lwm = .FALSE. !: boolean : true on the 1st processor only (always) 172 LOGICAL :: lwp = .FALSE. !: boolean : true on the 1st processor only .OR. ln_ctl165 LOGICAL :: lwp = .FALSE. !: boolean : true on the 1st processor only .OR. sn_cfctl%l_oceout=T 173 166 LOGICAL :: lsp_area = .TRUE. !: to make a control print over a specific area 174 167 CHARACTER(lc) :: cxios_context !: context name used in xios … … 178 171 LOGICAL, PARAMETER, PUBLIC :: lxios_blkw = .TRUE. 179 172 173 !! * Substitutions 174 # include "do_loop_substitute.h90" 180 175 !!---------------------------------------------------------------------- 181 176 !! NEMO/OCE 4.0 , NEMO Consortium (2018)
Note: See TracChangeset
for help on using the changeset viewer.
