Changeset 389 for trunk/NEMO/OPA_SRC/TRA/trabbc.F90

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/TRA/trabbc.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -189 +189 @@
          ! read the geothermal fluxes in mW/m2
          clname = 'geothermal_heating'
+#if defined key_AGRIF
+      if ( .NOT. Agrif_Root() ) then
+         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
+      endif
+#endif    
          itime = 1
          zlamt(:,:) = 0.
@@ -195 +200 @@
          CALL restini( clname, jpidta, jpjdta, zlamt, zphit, 1, zdept , 'NONE',   &
             &          itime, zdate0, zdt, inum, domain_id=nidom )
-         CALL restget( inum, 'heatflow', jpidta, jpjdta, 1, 0, .FALSE., zdta )
+         CALL restget( inum, 'heatflow', jpidta, jpjdta, 1, itime, .FALSE., zdta )
          DO jj = 1, nlcj
             DO ji = 1, nlci