Ignore:
Timestamp:
2013-11-29T18:43:46+01:00 (7 years ago)
Author:
cbricaud
Message:

Missing variables definition for time splitting, see ticket #1196

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r4147 r4326  
    178178   REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: tabtstemp 
    179179   REAL(wp), DIMENSION(:,:,:  ), ALLOCATABLE :: tabuvtemp 
     180   REAL(wp), DIMENSION(:,:    ), ALLOCATABLE :: tab2d 
    180181   LOGICAL :: check_namelist 
    181182   !!---------------------------------------------------------------------- 
     
    183184   ALLOCATE( tabtstemp(jpi, jpj, jpk, jpts) ) 
    184185   ALLOCATE( tabuvtemp(jpi, jpj, jpk)       ) 
     186   ALLOCATE( tab2d(jpi, jpj)                ) 
    185187 
    186188 
     
    200202   Call Agrif_Bc_variable(tabuvtemp,ua_id,calledweight=1.,procname=interpun) 
    201203   Call Agrif_Bc_variable(tabuvtemp,va_id,calledweight=1.,procname=interpvn) 
     204 
     205   Call Agrif_Bc_variable(tab2d,unb_id,calledweight=1.,procname=interpunb) 
     206   Call Agrif_Bc_variable(tab2d,vnb_id,calledweight=1.,procname=interpvnb) 
     207   Call Agrif_Bc_variable(tab2d,sshn_id,calledweight=1.,procname=interpsshn) 
    202208   Agrif_UseSpecialValue = .FALSE. 
    203209 
     
    258264   DEALLOCATE(tabtstemp) 
    259265   DEALLOCATE(tabuvtemp) 
     266   DEALLOCATE(tab2d) 
    260267   ! 
    261268END SUBROUTINE Agrif_InitValues_cont 
     
    285292   CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/jpi,jpj,jpk/),va_id) 
    286293 
     294   CALL agrif_declare_variable((/1,2/),(/2,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),unb_id) 
     295   CALL agrif_declare_variable((/2,1/),(/3,2/),(/'x','y'/),(/1,1/),(/jpi,jpj/),vnb_id) 
    287296   CALL agrif_declare_variable((/2,2/),(/3,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),sshn_id) 
    288297   CALL agrif_declare_variable((/2,2/),(/3,3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),gcb_id) 
     
    299308   Call Agrif_Set_bcinterp(va_id,interp1=AGRIF_ppm,interp2=Agrif_linear) 
    300309 
     310   CALL Agrif_Set_bcinterp(sshn_id,interp=AGRIF_linear) 
     311   Call Agrif_Set_bcinterp(unb_id,interp1=Agrif_linear,interp2=AGRIF_ppm) 
     312   Call Agrif_Set_bcinterp(vnb_id,interp1=AGRIF_ppm,interp2=Agrif_linear) 
     313 
    301314   ! 3. Location of interpolation 
    302315   !----------------------------- 
    303316   Call Agrif_Set_bc(un_id,(/0,1/)) 
    304317   Call Agrif_Set_bc(vn_id,(/0,1/)) 
     318 
     319   Call Agrif_Set_bc(sshn_id,(/0,1/)) 
     320   Call Agrif_Set_bc(unb_id,(/0,1/)) 
     321   Call Agrif_Set_bc(vnb_id,(/0,1/)) 
    305322 
    306323   Call Agrif_Set_bc(tsn_id,(/0,1/)) 
Note: See TracChangeset for help on using the changeset viewer.