Changeset 1084 for LMDZ4/trunk/libf/dyn3dpar/dynredem_p.F

Timestamp:

Jan 29, 2009, 11:37:41 AM (15 years ago)

Author:

jghattas

Message:

Bug-fix pour OpenMP.
Anne Cozic

File:

• LMDZ4/trunk/libf/dyn3dpar/dynredem_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/dynredem_p.F

@@ -551 +551 @@
       DATA nb / 0 /
 
+      logical exist_file
+
       call Gather_Field(ucov,ip1jmp1,llm,0)
       call Gather_Field(vcov,ip1jm,llm,0)
@@ -645 +647 @@
       IF (config_inca /= 'none') THEN
 ! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
-         ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
-         IF (ierr_file .NE.NF_NOERR) THEN
-            write(6,*)' Pb d''ouverture du fichier start_trac.nc'
-            write(6,*)' ierr = ', ierr_file 
-         ENDIF
+         inquire(FILE="start_trac.nc", EXIST=exist_file) 
+         print *, "EXIST", exist_file
+         if (exist_file) then 
+            ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
+            IF (ierr_file .NE.NF_NOERR) THEN
+               write(6,*)' Pb d''ouverture du fichier start_trac.nc'
+               write(6,*)' ierr = ', ierr_file 
+            ENDIF
+         else
+            ierr_file = 2
+         endif
       END IF