Changeset 5965 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90
- Timestamp:
- 2015-12-01T16:35:30+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90
- Property svn:keywords set to Id
r4153 r5965 44 44 45 45 INTEGER, PUBLIC, PARAMETER :: nclasses = 10 !: Number of icebergs classes 46 !!INTEGER, PUBLIC &47 !!#if !defined key_agrif48 !! , PARAMETER &49 !!#endif50 !! :: &51 !! nclasses = 10 !: Number of icebergs classes52 46 INTEGER, PUBLIC, PARAMETER :: nkounts = 3 !: Number of integers combined for unique naming 53 47 … … 93 87 ! particularly for MPP when iceberg can lie inside T grid but outside U, V, or f grid 94 88 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: uo_e, vo_e 95 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ff_e 89 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ff_e, tt_e, fr_e, hicth 96 90 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ua_e, va_e 97 91 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ssh_e 98 #if defined key_lim2 || defined key_lim3 92 #if defined key_lim2 || defined key_lim3 || defined key_cice 99 93 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ui_e, vi_e 100 94 #endif … … 144 138 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nicbflddest !: nfold destination proc 145 139 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nicbfldproc !: nfold destination proc 140 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nicbfldnsend !: nfold number of bergs to send to nfold neighbour 141 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nicbfldexpect !: nfold expected number of bergs 142 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nicbfldreq !: nfold message handle (immediate send) 146 143 147 144 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: griddata !: work array for icbrst … … 149 146 !!---------------------------------------------------------------------- 150 147 !! NEMO/OPA 3.3 , NEMO Consortium (2011) 151 !! $Id : sbc_oce.F90 3340 2012-04-02 11:05:35Z sga$148 !! $Id$ 152 149 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 153 150 !!---------------------------------------------------------------------- … … 162 159 ! 163 160 icb_alloc = 0 161 ALLOCATE( berg_grid, STAT=ill ) 162 icb_alloc = icb_alloc + ill 164 163 ALLOCATE( berg_grid%calving (jpi,jpj) , berg_grid%calving_hflx (jpi,jpj) , & 165 164 & berg_grid%stored_heat(jpi,jpj) , berg_grid%floating_melt(jpi,jpj) , & … … 171 170 ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) , & 172 171 & vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) , & 173 #if defined key_lim2 || defined key_lim3 172 #if defined key_lim2 || defined key_lim3 || defined key_cice 174 173 & ui_e(0:jpi+1,0:jpj+1) , & 175 174 & vi_e(0:jpi+1,0:jpj+1) , & 176 175 #endif 177 & ff_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) , & 176 & ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1) , & 177 & tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) , & 178 & hicth(0:jpi+1,0:jpj+1), & 178 179 & first_width(nclasses) , first_length(nclasses) , & 179 180 & src_calving (jpi,jpj) , & … … 181 182 icb_alloc = icb_alloc + ill 182 183 183 ALLOCATE( nicbfldpts(jpi) , nicbflddest(jpi) , nicbfldproc(jpni) , STAT=ill) 184 ALLOCATE( nicbfldpts(jpi) , nicbflddest(jpi) , nicbfldproc(jpni) , & 185 & nicbfldnsend(jpni), nicbfldexpect(jpni) , nicbfldreq(jpni), STAT=ill) 184 186 icb_alloc = icb_alloc + ill 185 187
Note: See TracChangeset
for help on using the changeset viewer.