Changeset 12655 for NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90

Timestamp:

2020-04-03T11:35:09+02:00 (4 years ago)

Author:

smasson

Message:

r12581_ticket2418: merge with trunk@12654, see #2418

File:

• NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90 (modified) (1 diff)

NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90

@@ -209 +209 @@
       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
       !
       !                             !--------------------!