- Timestamp:
- 2020-04-01T14:27:05+02:00 (4 years ago)
- Location:
- NEMO/releases/r4.0/r4.0-HEAD/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/nemogcm.F90
r12214 r12640 82 82 #endif 83 83 ! 84 USE in_out_manager ! I/O manager 84 85 USE lib_mpp ! distributed memory computing 85 86 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 310 311 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 311 312 ! open /dev/null file to be able to supress output write easily 313 IF( Agrif_Root() ) THEN 312 314 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 315 #ifdef key_agrif 316 ELSE 317 numnul = Agrif_Parent(numnul) 318 #endif 319 ENDIF 313 320 ! 314 321 ! !--------------------! -
NEMO/releases/r4.0/r4.0-HEAD/src/OFF/nemogcm.F90
r12026 r12640 198 198 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 199 199 ! open /dev/null file to be able to supress output write easily 200 IF( Agrif_Root() ) THEN 200 201 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 202 #ifdef key_agrif 203 ELSE 204 numnul = Agrif_Parent(numnul) 205 #endif 206 ENDIF 201 207 ! 202 208 ! !--------------------! -
NEMO/releases/r4.0/r4.0-HEAD/src/SAO/nemogcm.F90
r11536 r12640 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/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90
r11536 r12640 33 33 USE bdydta ! open boundary cond. setting (bdy_dta_init routine). mandatory for sea-ice 34 34 ! 35 USE in_out_manager ! I/O manager 35 36 USE lib_mpp ! distributed memory computing 36 37 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 243 244 ENDIF 244 245 ! open /dev/null file to be able to supress output write easily 246 IF( Agrif_Root() ) THEN 245 247 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 248 #ifdef key_agrif 249 ELSE 250 numnul = Agrif_Parent(numnul) 251 #endif 252 ENDIF 246 253 ! 247 254 ! !--------------------!
Note: See TracChangeset
for help on using the changeset viewer.