Ignore:
Timestamp:
2019-09-23T18:25:29+02:00 (13 months ago)
Author:
jchanut
Message:

#2222: 1) create remapping module (vremap) and integration of D. Engwirda piecewise polynomial recontruction package (PPR_LIB cpp key). 2) Various bug corrections with key_vertical activated.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_user.F90

    r11574 r11590  
    324324      ! 3. Location of interpolation 
    325325      !----------------------------- 
    326       CALL Agrif_Set_bc(       tsn_id, (/0,ind1/) ) 
    327       CALL Agrif_Set_bc( un_interp_id, (/0,ind1/) ) 
    328       CALL Agrif_Set_bc( vn_interp_id, (/0,ind1/) ) 
     326      CALL Agrif_Set_bc(       tsn_id, (/0,ind1-1/) ) 
     327      CALL Agrif_Set_bc( un_interp_id, (/0,ind1-1/) ) 
     328      CALL Agrif_Set_bc( vn_interp_id, (/0,ind1-1/) ) 
    329329 
    330330      CALL Agrif_Set_bc( tsn_sponge_id, (/-nn_sponge_len*Agrif_irhox()-1,0/) )  ! if west and rhox=3 and sponge=2 and ghost=1: columns 2 to 9  
     
    594594      ! 3. Location of interpolation 
    595595      !----------------------------- 
    596       CALL Agrif_Set_bc(trn_id,(/0,ind1/)) 
     596      CALL Agrif_Set_bc(trn_id,(/0,ind1-1/)) 
    597597      CALL Agrif_Set_bc(trn_sponge_id,(/-nn_sponge_len*Agrif_irhox()-1,0/)) 
    598598 
Note: See TracChangeset for help on using the changeset viewer.