Changeset 12641 for NEMO/trunk/src/OCE

Timestamp:

2020-04-01T14:33:59+02:00 (4 years ago)

Author:

smasson

Message:

trunk: numnul with Agrif, see #2430

File:

• NEMO/trunk/src/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/nemogcm.F90

@@ -84 +84 @@
 #endif
    !
+   USE in_out_manager ! I/O manager
    USE lib_mpp        ! distributed memory computing
    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. )
       ! open /dev/null file to be able to supress output write easily
+      IF( Agrif_Root() ) THEN
                   CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
-      !
+#ifdef key_agrif
+      ELSE
+                  numnul = Agrif_Parent(numnul)   
+#endif
+      ENDIF
       !                             !--------------------!
       !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp