Changeset 12640 for NEMO/releases/r4.0/r4.0-HEAD/src/SAS

Timestamp:

2020-04-01T14:27:05+02:00 (4 years ago)

Author:

smasson

Message:

r4.0-HEAD: numnul with Agrif, see #2378

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90

@@ -33 +33 @@
    USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). mandatory for sea-ice
    !
+   USE in_out_manager ! I/O manager
    USE lib_mpp        ! distributed memory computing
    USE mppini         ! shared/distributed memory setting (mpp_init routine)
@@ -243 +244 @@
       ENDIF
       ! 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
       !
       !                             !--------------------!