Changeset 389 for trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90

@@ -14 +14 @@
 
    CHARACTER (len=34) ::   &      !!! * monthly climatology/interanual fields
-      cl_taux = 'taux_1m.nc',  & ! generic name of the i-component monthly NetCDF file
-      cl_tauy = 'tauy_1m.nc'     ! generic name of the j-component monthly NetCDF file
+      cl_taux,  & ! generic name of the i-component monthly NetCDF file
+      cl_tauy     ! generic name of the j-component monthly NetCDF file
 
    REAL(wp), DIMENSION(jpi,jpj,2) ::   &
@@ -77 +77 @@
          zxy          ! coefficient of the linear time interpolation
       !!---------------------------------------------------------------------
+      cl_taux = 'taux_1m.nc'
+      cl_tauy = 'tauy_1m.nc'
 
       ! -------------- !
@@ -106 +108 @@
          
          ! title, dimensions and tests
+
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+         cl_taux = TRIM(Agrif_CFixed())//'_'//TRIM(cl_taux)
+      endif
+#endif
          
          CALL flinopen( cl_taux, mig(1), nlci, mjg(1), nlcj,   &   ! taux on U-grid
@@ -126 +134 @@
             nstop = nstop + 1
          ENDIF
-
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+         cl_tauy = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tauy)
+      endif
+#endif
          CALL flinopen( cl_tauy, mig(1), nlci, mjg(1), nlcj,   &   ! tauy on V-grid
                         .FALSE., ipi   , ipj, ipk   ,        &
@@ -185 +197 @@
             WRITE(numout,*)
             WRITE(numout,*) ' month: ', ntau1, '  taux: 1 multiply by ', 1.
-            CALL prihre( taux_dta(1,1,1), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )
+            CALL prihre( taux_dta(:,:,1), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )
             WRITE(numout,*)
             WRITE(numout,*) ' month: ', ntau2, '  tauy: 2 multiply by ', 1.
-            CALL prihre( tauy_dta(1,1,2), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )
+            CALL prihre( tauy_dta(:,:,2), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )
          ENDIF