- Timestamp:
- 2014-09-25T18:26:34+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90
r4785 r4789 12 12 USE par_oce ! ocean parameters 13 13 USE dom_oce ! domain parameters 14 14 15 15 IMPLICIT NONE 16 16 PRIVATE … … 23 23 REAL(wp), PUBLIC :: rn_sponge_tra = 2800. !: sponge coeff. for tracers 24 24 REAL(wp), PUBLIC :: rn_sponge_dyn = 2800. !: sponge coeff. for dynamics 25 LOGICAL , PUBLIC :: ln_chk_bathy = .FALSE. !: check of parent bathymetry 26 LOGICAL , PUBLIC :: ln_agrif_tke = .FALSE. !: interp/extrap for TKE 25 27 26 28 ! !!! OLD namelist names … … 34 36 LOGICAL , PUBLIC :: lk_agrif_fstep = .TRUE. !: if true: first step 35 37 36 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone 38 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_tsn 39 # if defined key_top 40 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_trn 41 # endif 37 42 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_u 38 43 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_v 39 44 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: spe1ur , spe2vr , spbtr2 !: ??? 40 45 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: spe1ur2, spe2vr2, spbtr3 !: ??? 41 # if defined key_dynspg_ts42 46 ! Barotropic arrays used to store open boundary data during 43 47 ! time-splitting loop: … … 46 50 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_n, vbdy_n, hbdy_n 47 51 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: ubdy_s, vbdy_s, hbdy_s 48 # endif 49 52 50 53 INTEGER :: tsn_id ! AGRIF profile for tracers interpolation and update 51 54 INTEGER :: un_interp_id, vn_interp_id ! AGRIF profiles for interpolations 52 55 INTEGER :: un_update_id, vn_update_id ! AGRIF profiles for udpates 53 56 INTEGER :: tsn_sponge_id, un_sponge_id, vn_sponge_id ! AGRIF profiles for sponge layers 54 INTEGER :: trn_id 57 # if defined key_top 58 INTEGER :: trn_id, trn_sponge_id 59 # endif 55 60 INTEGER :: unb_id, vnb_id, ub2b_interp_id, vb2b_interp_id 56 61 INTEGER :: ub2b_update_id, vb2b_update_id 57 62 INTEGER :: e3t_id, e1u_id, e2v_id, sshn_id 58 63 INTEGER :: scales_t_id 64 INTEGER :: avt_id, avm_id, avmu_id, avmv_id 59 65 60 66 !!---------------------------------------------------------------------- … … 73 79 ierr(:) = 0 74 80 ! 75 ALLOCATE( spe1ur (jpi,jpj), spe2vr (jpi,jpj), & 76 & spbtr2 (jpi,jpj), spe1ur2 (jpi,jpj), & 77 & spe2vr2 (jpi,jpj), spbtr3 (jpi,jpj), & 78 & tabspongedone (jpi,jpj), tabspongedone_u(jpi,jpj), & 79 & tabspongedone_v(jpi,jpj), STAT = ierr(1) ) 81 ALLOCATE( spe1ur (jpi,jpj), spe2vr (jpi,jpj), & 82 & spbtr2 (jpi,jpj), spe1ur2(jpi,jpj), & 83 & spe2vr2(jpi,jpj), spbtr3(jpi,jpj), & 84 & tabspongedone_tsn(jpi,jpj), & 85 # if defined key_top 86 & tabspongedone_trn(jpi,jpj), & 87 # endif 88 & tabspongedone_u (jpi,jpj), & 89 & tabspongedone_v (jpi,jpj), STAT = ierr(1) ) 80 90 81 # if defined key_dynspg_ts82 91 ALLOCATE( ubdy_w(jpj), vbdy_w(jpj), hbdy_w(jpj), & 83 92 & ubdy_e(jpj), vbdy_e(jpj), hbdy_e(jpj), & 84 93 & ubdy_n(jpi), vbdy_n(jpi), hbdy_n(jpi), & 85 94 & ubdy_s(jpi), vbdy_s(jpi), hbdy_s(jpi), STAT = ierr(2) ) 86 # endif 95 87 96 agrif_oce_alloc = MAXVAL(ierr) 88 97 !
Note: See TracChangeset
for help on using the changeset viewer.