Changeset 1409 for trunk/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2009-04-17T12:13:32+02:00 (15 years ago)

Author:

rblod

Message:

Correct bugs in resart and iom initialisations, see ticket #417

File:

• trunk/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -147 +147 @@
       ! if iom_open is called for the first time: initialize iom_file(:)%nfid to 0
       ! (could be done when defining iom_file in f95 but not in f90)
+#if ! defined key_agrif
       IF( iom_open_init == 0 ) THEN
          iom_file(:)%nfid = 0
          iom_open_init = 1
       ENDIF
+#else
+IF( Agrif_Root() ) THEN
+      IF( iom_open_init == 0 ) THEN
+         iom_file(:)%nfid = 0
+         iom_open_init = 1
+      ENDIF
+#endif
       ! do we read or write the file?
       IF( PRESENT(ldwrt) ) THEN   ;   llwrt = ldwrt