Changeset 5901 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90
- Timestamp:
- 2015-11-20T09:39:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90
r5620 r5901 8 8 !! 3.3 ! 2010-09 (D. Storkey) add ice boundary conditions 9 9 !! 3.4 ! 2011 (D. Storkey) rewrite in preparation for OBC-BDY merge 10 !! 3.6 ! 201 2-01 (C. Rousset) add ice boundary conditions for lim310 !! 3.6 ! 2014-01 (C. Rousset) add ice boundary conditions for lim3 11 11 !!---------------------------------------------------------------------- 12 12 #if defined key_bdy … … 22 22 23 23 TYPE, PUBLIC :: OBC_INDEX !: Indices and weights which define the open boundary 24 INTEGER , DIMENSION(jpbgrd) :: nblen25 INTEGER , DIMENSION(jpbgrd) :: nblenrim26 INTEGER , POINTER, DIMENSION(:,:):: nbi27 INTEGER , POINTER, DIMENSION(:,:):: nbj28 INTEGER , POINTER, DIMENSION(:,:):: nbr29 INTEGER , POINTER, DIMENSION(:,:):: nbmap30 REAL(wp) , POINTER, DIMENSION(:,:):: nbw31 REAL(wp) , POINTER, DIMENSION(:,:):: nbd32 REAL(wp) , POINTER, DIMENSION(:,:):: nbdout33 REAL(wp) , POINTER, DIMENSION(:,:):: flagu34 REAL(wp) , POINTER, DIMENSION(:,:):: flagv24 INTEGER , DIMENSION(jpbgrd) :: nblen 25 INTEGER , DIMENSION(jpbgrd) :: nblenrim 26 INTEGER , POINTER, DIMENSION(:,:) :: nbi 27 INTEGER , POINTER, DIMENSION(:,:) :: nbj 28 INTEGER , POINTER, DIMENSION(:,:) :: nbr 29 INTEGER , POINTER, DIMENSION(:,:) :: nbmap 30 REAL(wp), POINTER, DIMENSION(:,:) :: nbw 31 REAL(wp), POINTER, DIMENSION(:,:) :: nbd 32 REAL(wp), POINTER, DIMENSION(:,:) :: nbdout 33 REAL(wp), POINTER, DIMENSION(:,:) :: flagu 34 REAL(wp), POINTER, DIMENSION(:,:) :: flagv 35 35 END TYPE OBC_INDEX 36 36 … … 41 41 42 42 TYPE, PUBLIC :: OBC_DATA !: Storage for external data 43 INTEGER , DIMENSION(2):: nread44 LOGICAL :: ll_ssh45 LOGICAL :: ll_u2d46 LOGICAL :: ll_v2d47 LOGICAL :: ll_u3d48 LOGICAL :: ll_v3d49 LOGICAL :: ll_tem50 LOGICAL :: ll_sal51 LOGICAL :: ll_fvl52 REAL(wp), POINTER, DIMENSION(:) 53 REAL(wp), POINTER, DIMENSION(:) 54 REAL(wp), POINTER, DIMENSION(:) 55 REAL(wp), POINTER, DIMENSION(:,:) 56 REAL(wp), POINTER, DIMENSION(:,:) 57 REAL(wp), POINTER, DIMENSION(:,:) 58 REAL(wp), POINTER, DIMENSION(:,:) 43 INTEGER , DIMENSION(2) :: nread 44 LOGICAL :: ll_ssh 45 LOGICAL :: ll_u2d 46 LOGICAL :: ll_v2d 47 LOGICAL :: ll_u3d 48 LOGICAL :: ll_v3d 49 LOGICAL :: ll_tem 50 LOGICAL :: ll_sal 51 LOGICAL :: ll_fvl 52 REAL(wp), POINTER, DIMENSION(:) :: ssh 53 REAL(wp), POINTER, DIMENSION(:) :: u2d 54 REAL(wp), POINTER, DIMENSION(:) :: v2d 55 REAL(wp), POINTER, DIMENSION(:,:) :: u3d 56 REAL(wp), POINTER, DIMENSION(:,:) :: v3d 57 REAL(wp), POINTER, DIMENSION(:,:) :: tem 58 REAL(wp), POINTER, DIMENSION(:,:) :: sal 59 59 #if defined key_lim2 60 LOGICAL ::ll_frld61 LOGICAL ::ll_hicif62 LOGICAL ::ll_hsnif63 REAL(wp), POINTER, DIMENSION(:) ::frld64 REAL(wp), POINTER, DIMENSION(:) ::hicif65 REAL(wp), POINTER, DIMENSION(:) ::hsnif60 LOGICAL :: ll_frld 61 LOGICAL :: ll_hicif 62 LOGICAL :: ll_hsnif 63 REAL(wp), POINTER, DIMENSION(:) :: frld 64 REAL(wp), POINTER, DIMENSION(:) :: hicif 65 REAL(wp), POINTER, DIMENSION(:) :: hsnif 66 66 #elif defined key_lim3 67 LOGICAL ::ll_a_i68 LOGICAL ::ll_ht_i69 LOGICAL ::ll_ht_s70 REAL , POINTER, DIMENSION(:,:) :: a_i!: now ice leads fraction climatology71 REAL , POINTER, DIMENSION(:,:) :: ht_i!: Now ice thickness climatology72 REAL , POINTER, DIMENSION(:,:) :: ht_s!: now snow thickness67 LOGICAL :: ll_a_i 68 LOGICAL :: ll_ht_i 69 LOGICAL :: ll_ht_s 70 REAL(wp), POINTER, DIMENSION(:,:) :: a_i !: now ice leads fraction climatology 71 REAL(wp), POINTER, DIMENSION(:,:) :: ht_i !: Now ice thickness climatology 72 REAL(wp), POINTER, DIMENSION(:,:) :: ht_s !: now snow thickness 73 73 #endif 74 74 END TYPE OBC_DATA … … 86 86 ! 87 87 INTEGER :: nb_bdy !: number of open boundary sets 88 INTEGER :: nb_jpk_bdy ! Number of levels in the bdy data (set < 0 if consistent with planned run)88 INTEGER, :: nb_jpk_bdy !: number of levels in the bdy data (set < 0 if consistent with planned run) 89 89 INTEGER, DIMENSION(jp_bdy) :: nn_rimwidth !: boundary rim width for Flow Relaxation Scheme 90 90 INTEGER :: nn_volctl !: = 0 the total volume will have the variability of the surface Flux E-P … … 101 101 INTEGER, DIMENSION(jp_bdy) :: nn_tra_dta !: = 0 use the initial state as bdy dta ; 102 102 !: = 1 read it in a NetCDF file 103 LOGICAL , DIMENSION(jp_bdy) :: ln_tra_dmp!: =T Tracer damping104 LOGICAL , DIMENSION(jp_bdy) :: ln_dyn3d_dmp!: =T Baroclinic velocity damping105 REAL(wp), DIMENSION(jp_bdy) :: rn_time_dmp!: Damping time scale in days106 REAL(wp), DIMENSION(jp_bdy) :: rn_time_dmp_out!: Damping time scale in days at radiation outflow points103 LOGICAL , DIMENSION(jp_bdy) :: ln_tra_dmp !: =T Tracer damping 104 LOGICAL , DIMENSION(jp_bdy) :: ln_dyn3d_dmp !: =T Baroclinic velocity damping 105 REAL(wp), DIMENSION(jp_bdy) :: rn_time_dmp !: Damping time scale in days 106 REAL(wp), DIMENSION(jp_bdy) :: rn_time_dmp_out !: Damping time scale in days at radiation outflow points 107 107 108 108 CHARACTER(len=20), DIMENSION(jp_bdy) :: cn_ice_lim ! Choice of boundary condition for sea ice variables 109 INTEGER , DIMENSION(jp_bdy):: nn_ice_lim_dta !: = 0 use the initial state as bdy dta ;109 INTEGER , DIMENSION(jp_bdy) :: nn_ice_lim_dta !: = 0 use the initial state as bdy dta ; 110 110 !: = 1 read it in a NetCDF file 111 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_tem!: choice of the temperature of incoming sea ice112 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_sal!: choice of the salinity of incoming sea ice113 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_age!: choice of the age of incoming sea ice111 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_tem !: choice of the temperature of incoming sea ice 112 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_sal !: choice of the salinity of incoming sea ice 113 REAL(wp), DIMENSION(jp_bdy) :: rn_ice_age !: choice of the age of incoming sea ice 114 114 ! 115 115
Note: See TracChangeset
for help on using the changeset viewer.