Changeset 12641 for NEMO/trunk/src/OCE/nemogcm.F90
- Timestamp:
- 2020-04-01T14:33:59+02:00 (4 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.