- Timestamp:
- 2020-09-16T18:56:46+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/NST/agrif_ice_interp.F90
r10069 r13479 167 167 ptab(i1:i2,j1:j2,jm+5) = a_ip(i1:i2,j1:j2,jl) 168 168 ptab(i1:i2,j1:j2,jm+6) = v_ip(i1:i2,j1:j2,jl) 169 ptab(i1:i2,j1:j2,jm+7) = t_su(i1:i2,j1:j2,jl) 170 jm = jm + 8 169 ptab(i1:i2,j1:j2,jm+7) = v_il(i1:i2,j1:j2,jl) 170 ptab(i1:i2,j1:j2,jm+8) = t_su(i1:i2,j1:j2,jl) 171 jm = jm + 9 171 172 DO jk = 1, nlay_s 172 173 ptab(i1:i2,j1:j2,jm) = e_s(i1:i2,j1:j2,jk,jl) ; jm = jm + 1 … … 197 198 a_ip(ji,jj,jl) = ptab(ji,jj,jm+5) * tmask(ji,jj,1) 198 199 v_ip(ji,jj,jl) = ptab(ji,jj,jm+6) * tmask(ji,jj,1) 199 t_su(ji,jj,jl) = ptab(ji,jj,jm+7) * tmask(ji,jj,1) 200 v_il(ji,jj,jl) = ptab(ji,jj,jm+7) * tmask(ji,jj,1) 201 t_su(ji,jj,jl) = ptab(ji,jj,jm+8) * tmask(ji,jj,1) 200 202 END DO 201 203 END DO 202 jm = jm + 8204 jm = jm + 9 203 205 ! 204 206 DO jk = 1, nlay_s … … 230 232 ! ztab(:,:,jm+5) = a_ip(:,:,jl) 231 233 ! ztab(:,:,jm+6) = v_ip(:,:,jl) 232 ! ztab(:,:,jm+7) = t_su(:,:,jl) 233 ! jm = jm + 8 234 ! ztab(:,:,jm+7) = v_il(:,:,jl) 235 ! ztab(:,:,jm+8) = t_su(:,:,jl) 236 ! jm = jm + 9 234 237 ! DO jk = 1, nlay_s 235 238 ! ztab(:,:,jm) = e_s(:,:,jk,jl) … … 336 339 ! a_ip(ji,jj,jl) = ztab(ji,jj,jm+5) * tmask(ji,jj,1) 337 340 ! v_ip(ji,jj,jl) = ztab(ji,jj,jm+6) * tmask(ji,jj,1) 338 ! t_su(ji,jj,jl) = ztab(ji,jj,jm+7) * tmask(ji,jj,1) 341 ! v_il(ji,jj,jl) = ztab(ji,jj,jm+7) * tmask(ji,jj,1) 342 ! t_su(ji,jj,jl) = ztab(ji,jj,jm+8) * tmask(ji,jj,1) 339 343 ! END DO 340 344 ! END DO 341 ! jm = jm + 8345 ! jm = jm + 9 342 346 ! ! 343 347 ! DO jk = 1, nlay_s
Note: See TracChangeset
for help on using the changeset viewer.