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

trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90

@@ -95 +95 @@
          zlon   , zlat                 ! ???
       CHARACTER (len=32) ::   &
-         clname = 'flx.nc'             ! flux filename
+         clname            ! flux filename
       !!---------------------------------------------------------------------
+         clname = 'flx.nc'
 
 
@@ -131 +132 @@
 
          ! title, dimensions and tests
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
+      endif
+#endif    
          CALL flinopen( clname, mig(1), nlci, mjg(1), nlcj,   &
             &          .FALSE., ipi, ipj, ipk, zlon, zlat, zlev,   &
@@ -202 +208 @@
                WRITE(numout,*)
                WRITE(numout,*) 'Clio mounth: ',nflx1,'  field: ',jm,' multiply by ',0.1
-               CALL prihre(flxdta(1,1,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
+               CALL prihre(flxdta(:,:,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
             END DO
          ENDIF
@@ -269 +275 @@
                WRITE(numout,*) 'jpf =  ', jpf !C a u t i o n : information need for SX5NEC compilo bug
                WRITE(numout,*) 'Clio mounth: ',nflx11,'  field: ',jm,' multiply by ',0.1
-               CALL prihre(flxdta(1,1,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
+               CALL prihre(flxdta(:,:,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)
                WRITE(numout,*)
             END DO