Changeset 444

Timestamp:

2006-04-26T11:25:08+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_039:RB: add input name modification with agrif for flx_bulk_daily

File:

• trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90

@@ -126 +126 @@
             WRITE(numout,*) ' '
          ENDIF
+
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname_n)
+      endif
+#endif  
          
          ! open NCEP file
@@ -152 +158 @@
        ENDIF
 
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname_c)
+      endif
+#endif  
+
        ! open CLIO file
        CALL flinopen(clname_c,mig(1),nlci,mjg(1),nlcj,.FALSE.,ipi,ipj &
@@ -176 +188 @@
           STOP 'flx_bulk_daily.h90'
        ENDIF
+
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname_x)
+      endif
+#endif  
        
        ! open CMAP FILE
@@ -201 +219 @@
           STOP 'flx_bulk_daily.h90'
        ENDIF
+
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname_w)
+      endif
+#endif  
 
        ! open ERS-NCEP file