Changeset 1358

Timestamp:

2009-03-31T14:10:37+02:00 (15 years ago)

Author:

rblod

Message:

Update diaptr for compatibility with AGRIF

File:

• trunk/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -62 +62 @@
    REAL(wp), PUBLIC, DIMENSION(jpj) ::   st_glo,st_atl,st_ind,st_pac,st_ipc !: salt
 
-   INTEGER :: nidom_diaptr = FLIO_DOM_NONE ! domain identifier for IOIPSL
    INTEGER :: niter
 
@@ -574 +573 @@
 !-$$      ENDIF 
 
-      CALL flio_dom_set ( jpnj, nproc/jpni, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom_diaptr)
+      CALL flio_dom_set ( jpnj, nproc/jpni, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom)
       
    END SUBROUTINE dia_ptr_init
@@ -702 +701 @@
             ! Horizontal grid : zphi()
             CALL histbeg(clhstnam, 1, zfoo, jpj, zphi,   &
-               1, 1, 1, jpj, niter, zjulian, zdt*nf_ptr, nhoridz, numptr, domain_id=nidom_diaptr )
+               1, 1, 1, jpj, niter, zjulian, zdt*nf_ptr, nhoridz, numptr, domain_id=nidom)
             ! Vertical grids : gdept_0, gdepw_0
             CALL histvert( numptr, "deptht", "Vertical T levels",   &