Changeset 10688 for NEMO/branches
- Timestamp:
- 2019-02-15T14:42:09+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_ticket2229/src/OCE/ICB/icb_oce.F90
r10678 r10688 170 170 ! 171 171 ! expanded arrays for bilinear interpolation 172 ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) , 173 & vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) , 172 ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) , & 173 & vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) , & 174 174 #if defined key_si3 || defined key_cice 175 & ui_e(0:jpi+1,0:jpj+1) , 176 & vi_e(0:jpi+1,0:jpj+1) , 175 & ui_e(0:jpi+1,0:jpj+1) , & 176 & vi_e(0:jpi+1,0:jpj+1) , & 177 177 #endif 178 & ff_e(0:jpi+1,0:jpj+1) 179 & tt_e(0:jpi+1,0:jpj+1) 180 & hicth(0:jpi+1,0:jpj+1), 181 & first_width(nclasses) , first_length(nclasses) , 182 & src_calving (jpi,jpj) , 178 & ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1) , & 179 & tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) , & 180 & hicth(0:jpi+1,0:jpj+1), & 181 & first_width(nclasses) , first_length(nclasses) , & 182 & src_calving (jpi,jpj) , & 183 183 & src_calving_hflx(jpi,jpj) , STAT=ill) 184 184 icb_alloc = icb_alloc + ill
Note: See TracChangeset
for help on using the changeset viewer.