- Timestamp:
- 2017-10-18T19:14:32+02:00 (7 years ago)
- Location:
- branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90
r8586 r8637 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_agrif' AGRIF zoom 12 !! 'key_lim3' LIM3 sea-ice model 12 13 !!---------------------------------------------------------------------- 13 14 IMPLICIT NONE -
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90
r8586 r8637 48 48 49 49 ! Barotropic arrays used to store open boundary data during time-splitting loop: 50 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_w, vbdy_w, hbdy_w51 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_e, vbdy_e, hbdy_e52 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_n, vbdy_n, hbdy_n53 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_s, vbdy_s, hbdy_s50 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_w, vbdy_w, hbdy_w 51 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_e, vbdy_e, hbdy_e 52 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_n, vbdy_n, hbdy_n 53 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_s, vbdy_s, hbdy_s 54 54 55 INTEGER :: tsn_id ! AGRIF profile for tracers interpolation and update 56 INTEGER :: un_interp_id, vn_interp_id ! AGRIF profiles for interpolations 57 INTEGER :: un_update_id, vn_update_id ! AGRIF profiles for udpates 58 INTEGER :: tsn_sponge_id, un_sponge_id, vn_sponge_id ! AGRIF profiles for sponge layers 55 56 INTEGER, PUBLIC :: tsn_id ! AGRIF profile for tracers interpolation and update 57 INTEGER, PUBLIC :: un_interp_id, vn_interp_id ! AGRIF profiles for interpolations 58 INTEGER, PUBLIC :: un_update_id, vn_update_id ! AGRIF profiles for udpates 59 INTEGER, PUBLIC :: tsn_sponge_id, un_sponge_id, vn_sponge_id ! AGRIF profiles for sponge layers 59 60 # if defined key_top 60 INTEGER :: trn_id, trn_sponge_id61 INTEGER, PUBLIC :: trn_id, trn_sponge_id 61 62 # endif 62 INTEGER :: unb_id, vnb_id, ub2b_interp_id, vb2b_interp_id 63 INTEGER :: ub2b_update_id, vb2b_update_id 64 INTEGER :: e3t_id, e1u_id, e2v_id, sshn_id 65 INTEGER :: scales_t_id 66 # if defined key_zdftke 67 INTEGER :: avt_id, avm_id, en_id 68 # endif 69 INTEGER :: umsk_id, vmsk_id 70 INTEGER :: kindic_agr 71 63 INTEGER, PUBLIC :: unb_id, vnb_id, ub2b_interp_id, vb2b_interp_id 64 INTEGER, PUBLIC :: ub2b_update_id, vb2b_update_id 65 INTEGER, PUBLIC :: e3t_id, e1u_id, e2v_id, sshn_id 66 INTEGER, PUBLIC :: scales_t_id 67 INTEGER, PUBLIC :: avt_id, avm_id, en_id ! TKE related identificators 68 INTEGER, PUBLIC :: umsk_id, vmsk_id 69 INTEGER, PUBLIC :: kindic_agr 70 72 71 !!---------------------------------------------------------------------- 73 !! NEMO/NST 3.3.1 , NEMO Consortium (2011)72 !! NEMO/NST 4.0 , NEMO Consortium (2017) 74 73 !! $Id$ 75 74 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90
r8586 r8637 594 594 END SUBROUTINE Agrif_ssh_ts 595 595 596 # if defined key_zdftke597 596 598 597 SUBROUTINE Agrif_tke … … 615 614 END SUBROUTINE Agrif_tke 616 615 617 # endif618 616 619 617 SUBROUTINE interptsn( ptab, i1, i2, j1, j2, k1, k2, n1, n2, before, nb, ndir )
Note: See TracChangeset
for help on using the changeset viewer.