- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/SAO/nemogcm.F90
r12178 r12928 29 29 USE sao_intp 30 30 ! 31 USE in_out_manager ! I/O manager 31 32 USE lib_mpp ! distributed memory computing 32 33 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 91 92 INTEGER :: ios, ilocal_comm ! local integer 92 93 ! 93 NAMELIST/namctl/ ln_ctl , sn_cfctl, nn_print, nn_ictls, nn_ictle,&94 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 94 95 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 95 96 & ln_timing, ln_diacfl … … 135 136 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 136 137 ! open reference and configuration namelist files 137 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)138 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)138 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 139 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 139 140 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 140 141 ! open /dev/null file to be able to supress output write easily 142 IF( Agrif_Root() ) THEN 141 143 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 144 #ifdef key_agrif 145 ELSE 146 numnul = Agrif_Parent(numnul) 147 #endif 148 ENDIF 142 149 ! 143 150 ! !--------------------! 144 ! ! Open listing units ! -> need ln_ctl from namctl to define lwp151 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp 145 152 ! !--------------------! 146 153 ! 147 REWIND( numnam_ref ) ! Namelist namctl in reference namelist148 154 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 149 155 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 150 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist151 156 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 152 157 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 153 158 ! 154 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 159 ! finalize the definition of namctl variables 160 IF( sn_cfctl%l_allon ) THEN 161 ! Turn on all options. 162 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 163 ! Ensure all processors are active 164 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 165 ELSEIF( sn_cfctl%l_config ) THEN 166 ! Activate finer control of report outputs 167 ! optionally switch off output from selected areas (note this only 168 ! applies to output which does not involve global communications) 169 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 170 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 171 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 172 ELSE 173 ! turn off all options. 174 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 175 ENDIF 176 ! 177 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 155 178 ! 156 179 IF(lwp) THEN ! open listing units … … 184 207 ENDIF 185 208 ! 186 ! finalize the definition of namctl variables187 IF( sn_cfctl%l_config ) THEN188 ! Activate finer control of report outputs189 ! optionally switch off output from selected areas (note this only190 ! applies to output which does not involve global communications)191 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. &192 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) &193 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. )194 ELSE195 ! Use ln_ctl to turn on or off all options.196 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )197 ENDIF198 !199 209 IF(lwm) WRITE( numond, namctl ) 200 210 ! … … 203 213 ! !------------------------------------! 204 214 ! 205 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist206 215 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 207 216 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 208 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist209 217 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 210 218 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 238 246 CALL phy_cst ! Physical constants 239 247 CALL eos_init ! Equation of state 240 CALL dom_init('SAO') ! Domain 241 242 243 IF( ln_ctl ) CALL prt_ctl_init ! Print control 244 245 CALL istate_init ! ocean initial state (Dynamics and tracers) 248 CALL dom_init( Nbb, Nnn, Naa, 'SAO') ! Domain 249 250 251 IF( sn_cfctl%l_prtctl ) & 252 & CALL prt_ctl_init ! Print control 253 254 CALL istate_init ! ocean initial state (Dynamics and tracers) 246 255 END SUBROUTINE nemo_init 247 256 … … 253 262 !! ** Purpose : control print setting 254 263 !! 255 !! ** Method : - print namctl information and check some consistencies264 !! ** Method : - print namctl and namcfg information and check some consistencies 256 265 !!---------------------------------------------------------------------- 257 266 ! … … 261 270 WRITE(numout,*) '~~~~~~~~' 262 271 WRITE(numout,*) ' Namelist namctl' 263 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 272 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 273 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 264 274 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 265 275 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 267 277 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 268 278 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 269 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 270 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 279 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 280 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 281 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 271 282 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 272 283 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 306 317 ! ! Parameter control 307 318 ! 308 IF( ln_ctl ) THEN! sub-domain area indices for the control prints319 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 309 320 IF( lk_mpp .AND. jpnij > 1 ) THEN 310 321 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 363 374 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 364 375 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 365 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist366 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist367 376 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 368 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist369 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist370 377 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 371 378 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) … … 426 433 sn_cfctl%l_oceout = setto 427 434 sn_cfctl%l_layout = setto 428 sn_cfctl%l_mppout = setto 429 sn_cfctl%l_mpptop = setto 435 sn_cfctl%l_prtctl = setto 436 sn_cfctl%l_prttrc = setto 437 sn_cfctl%l_oasout = setto 430 438 END SUBROUTINE nemo_set_cfctl 431 439 -
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/SAO/sao_data.F90
r12178 r12928 52 52 53 53 ! Standard offline obs_oper settings 54 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark55 54 READ ( numnam_ref, namsao, IOSTAT = ios, ERR = 901 ) 56 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in reference namelist' ) 57 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark58 56 READ ( numnam_cfg, namsao, IOSTAT = ios, ERR = 902 ) 59 57 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsao in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.