Changeset 478

Timestamp:

2006-06-19T15:17:31+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_046 : SM + CT : add lines when using AGRIF tool and iom module

File:

• trunk/NEMO/OPA_SRC/iom.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/iom.F90

@@ -50 +50 @@
       jpmax_digits  =  5       ! maximum number of digits in the file name to reference the cpu number
  
+!$AGRIF_DO_NOT_TREAT
    INTEGER :: iom_init = 0
 
@@ -65 +66 @@
    END TYPE flio_file
    TYPE(flio_file), DIMENSION(flio_max_files)   :: iom_file ! array containing the info for all opened files
+!$AGRIF_END_DO_NOT_TREAT
 
    !!----------------------------------------------------------------------
@@ -108 +110 @@
       IF( .NOT.llok ) THEN                         ! try to complete the name with the suffix only
          clname = TRIM(cdname)//TRIM(clsuffix)
+#if defined key_agrif
+         if ( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
+#endif                
          INQUIRE( FILE = clname, EXIST = llok )
          IF( .NOT.llok ) THEN                      ! try to complete the name with both cpu number and suffix
@@ -113 +118 @@
             clcpu  = trim(adjustl(clcpu))
             clname = trim(cdname)//"_"
+#if defined key_agrif
+            if ( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
+#endif                
             icnt = 0
             INQUIRE( FILE = trim(clname)//trim(clcpu)//trim(clsuffix), EXIST = llok )