Changeset 4873 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
- Timestamp:
- 2014-11-18T18:53:04+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
r4872 r4873 155 155 CALL wrk_alloc( jpij, nlay_i+1, ztcond_i, zradtr_i, zradab_i, zkappa_i, ztib, zeta_i, ztitemp, z_i, zspeche_i, kjstart=0) 156 156 CALL wrk_alloc( jpij, nlay_s+1, zradtr_s, zradab_s, zkappa_s, ztsb, zeta_s, ztstemp, z_s, kjstart=0) 157 CALL wrk_alloc( jpij, jkmax+2, zindterm, zindtbis, zdiagbis )158 CALL wrk_alloc( jpij, jkmax+2, 3, ztrid )157 CALL wrk_alloc( jpij, nlay_i+3, zindterm, zindtbis, zdiagbis ) 158 CALL wrk_alloc( jpij, nlay_i+3, 3, ztrid ) 159 159 160 160 CALL wrk_alloc( jpij, zdq, zq_ini ) … … 430 430 !!ice interior terms (top equation has the same form as the others) 431 431 432 DO numeq=1, jkmax+2432 DO numeq=1,nlay_i+3 433 433 DO ji = kideb , kiut 434 434 ztrid(ji,numeq,1) = 0. … … 621 621 622 622 maxnumeqmax = 0 623 minnumeqmin = jkmax+4623 minnumeqmin = nlay_i+5 624 624 625 625 DO ji = kideb , kiut … … 761 761 & ztib, zeta_i, ztitemp, z_i, zspeche_i, kjstart = 0 ) 762 762 CALL wrk_dealloc( jpij, nlay_s+1, zradtr_s, zradab_s, zkappa_s, ztsb, zeta_s, ztstemp, z_s, kjstart = 0 ) 763 CALL wrk_dealloc( jpij, jkmax+2, zindterm, zindtbis, zdiagbis )764 CALL wrk_dealloc( jpij, jkmax+2, 3, ztrid )763 CALL wrk_dealloc( jpij, nlay_i+3, zindterm, zindtbis, zdiagbis ) 764 CALL wrk_dealloc( jpij, nlay_i+3, 3, ztrid ) 765 765 CALL wrk_dealloc( jpij, zdq, zq_ini ) 766 766
Note: See TracChangeset
for help on using the changeset viewer.