Changeset 389 for trunk/NEMO/OPA_SRC/SBC/flx_forced_daily.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/flx_forced_daily.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_forced_daily.h90

@@ -118 +118 @@
          ! Close/open file if new year 
 
-         IF( nyearflx /= 0 )   CALL flinclo(numflx)
+         IF( nyearflx /= 0 .AND. kt /= nit000 )   CALL flinclo(numflx)
 
          iy = nyear
          IF(lwp) WRITE (numout,*) iy
          WRITE(clname,'("flx_1d.nc")') 
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
+      endif
+#endif         
          IF(lwp) WRITE (numout,*)' open flx file = ',clname
          CALL FLUSH(numout)
@@ -172 +177 @@
                   WRITE(numout,*)
                   WRITE(numout,*) ' Q * .1, day: ',ndastp
-                  CALL prihre(flxdta(1,1,1),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
+                  CALL prihre(flxdta(:,:,1),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
                   WRITE(numout,*)
                   WRITE(numout,*) ' QSR * .1, day: ',ndastp
-                  CALL prihre(flxdta(1,1,2),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
+                  CALL prihre(flxdta(:,:,2),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
                   WRITE(numout,*)
                   WRITE(numout,*) ' E-P *86400, day: ',ndastp
-                  CALL prihre(flxdta(1,1,3),jpi,jpj,1,jpi,20,1,jpj,10,86400.,numout)
+                  CALL prihre(flxdta(:,:,3),jpi,jpj,1,jpi,20,1,jpj,10,86400.,numout)
                   WRITE(numout,*) ' '
                ENDIF