Changeset 4326 for branches

Timestamp:

2013-11-29T18:43:46+01:00 (10 years ago)

Author:

cbricaud

Message:

Missing variables definition for time splitting, see ticket #1196

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (6 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -178 +178 @@
    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: tabtstemp
    REAL(wp), DIMENSION(:,:,:  ), ALLOCATABLE :: tabuvtemp
+   REAL(wp), DIMENSION(:,:    ), ALLOCATABLE :: tab2d
    LOGICAL :: check_namelist
    !!----------------------------------------------------------------------
@@ -183 +184 @@
    ALLOCATE( tabtstemp(jpi, jpj, jpk, jpts) )
    ALLOCATE( tabuvtemp(jpi, jpj, jpk)       )
+   ALLOCATE( tab2d(jpi, jpj)                )
 
 
@@ -200 +202 @@
    Call Agrif_Bc_variable(tabuvtemp,ua_id,calledweight=1.,procname=interpun)
    Call Agrif_Bc_variable(tabuvtemp,va_id,calledweight=1.,procname=interpvn)
+
+   Call Agrif_Bc_variable(tab2d,unb_id,calledweight=1.,procname=interpunb)
+   Call Agrif_Bc_variable(tab2d,vnb_id,calledweight=1.,procname=interpvnb)
+   Call Agrif_Bc_variable(tab2d,sshn_id,calledweight=1.,procname=interpsshn)
    Agrif_UseSpecialValue = .FALSE.
 
@@ -258 +264 @@
    DEALLOCATE(tabtstemp)
    DEALLOCATE(tabuvtemp)
+   DEALLOCATE(tab2d)
    !
 END SUBROUTINE Agrif_InitValues_cont
@@ -285 +292 @@
    CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/jpi,jpj,jpk/),va_id)
 
+   CALL agrif_declare_variable((/1,2/),(/2,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),unb_id)
+   CALL agrif_declare_variable((/2,1/),(/3,2/),(/'x','y'/),(/1,1/),(/jpi,jpj/),vnb_id)
    CALL agrif_declare_variable((/2,2/),(/3,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),sshn_id)
    CALL agrif_declare_variable((/2,2/),(/3,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),gcb_id)
@@ -299 +308 @@
    Call Agrif_Set_bcinterp(va_id,interp1=AGRIF_ppm,interp2=Agrif_linear)
 
+   CALL Agrif_Set_bcinterp(sshn_id,interp=AGRIF_linear)
+   Call Agrif_Set_bcinterp(unb_id,interp1=Agrif_linear,interp2=AGRIF_ppm)
+   Call Agrif_Set_bcinterp(vnb_id,interp1=AGRIF_ppm,interp2=Agrif_linear)
+
    ! 3. Location of interpolation
    !-----------------------------
    Call Agrif_Set_bc(un_id,(/0,1/))
    Call Agrif_Set_bc(vn_id,(/0,1/))
+
+   Call Agrif_Set_bc(sshn_id,(/0,1/))
+   Call Agrif_Set_bc(unb_id,(/0,1/))
+   Call Agrif_Set_bc(vnb_id,(/0,1/))
 
    Call Agrif_Set_bc(tsn_id,(/0,1/))