Changeset 12641 for NEMO/trunk
- Timestamp:
- 2020-04-01T14:33:59+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/nemogcm.F90
r12489 r12641 84 84 #endif 85 85 ! 86 USE in_out_manager ! I/O manager 86 87 USE lib_mpp ! distributed memory computing 87 88 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 317 318 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 318 319 ! open /dev/null file to be able to supress output write easily 320 IF( Agrif_Root() ) THEN 319 321 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 320 ! 322 #ifdef key_agrif 323 ELSE 324 numnul = Agrif_Parent(numnul) 325 #endif 326 ENDIF 321 327 ! !--------------------! 322 328 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp -
NEMO/trunk/src/OFF/nemogcm.F90
r12377 r12641 209 209 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 210 210 ! open /dev/null file to be able to supress output write easily 211 IF( Agrif_Root() ) THEN 211 212 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 213 #ifdef key_agrif 214 ELSE 215 numnul = Agrif_Parent(numnul) 216 #endif 217 ENDIF 212 218 ! 213 219 ! !--------------------! -
NEMO/trunk/src/SAO/nemogcm.F90
r12377 r12641 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) … … 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 ! !--------------------! -
NEMO/trunk/src/SAS/nemogcm.F90
r12489 r12641 35 35 USE step_diu ! diurnal bulk SST timestepping (called from here if run offline) 36 36 ! 37 USE in_out_manager ! I/O manager 37 38 USE lib_mpp ! distributed memory computing 38 39 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 256 257 ENDIF 257 258 ! open /dev/null file to be able to supress output write easily 259 IF( Agrif_Root() ) THEN 258 260 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 261 #ifdef key_agrif 262 ELSE 263 numnul = Agrif_Parent(numnul) 264 #endif 265 ENDIF 259 266 ! 260 267 ! !--------------------! -
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12615 r12641 30 30 USE step_c1d ! Time stepping loop for the 1D configuration 31 31 ! 32 USE in_out_manager ! I/O manager 32 33 USE lib_mpp ! distributed memory computing 33 34 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 165 166 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 166 167 ! open /dev/null file to be able to supress output write easily 168 IF( Agrif_Root() ) THEN 167 169 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 170 #ifdef key_agrif 171 ELSE 172 numnul = Agrif_Parent(numnul) 173 #endif 174 ENDIF 168 175 ! 169 176 ! !--------------------!
Note: See TracChangeset
for help on using the changeset viewer.