Changeset 3300 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
- Timestamp:
- 2012-02-08T10:54:42+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
r3299 r3300 215 215 END DO 216 216 END DO 217 ! 218 ! Computation of the trend 217 END DO 218 ! 219 CALL lbc_lnk( zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions 220 ! 221 ! Computation of the trend 222 DO jk = 1, jpkm1 219 223 DO jj = 2, jpjm1 220 224 DO ji = fs_2, fs_jpim1 ! vector opt. … … 226 230 END DO 227 231 END DO 228 !229 232 END DO 230 233 ! ! trend diagnostics (contribution of upstream fluxes) … … 338 341 END DO 339 342 END DO 340 ! 341 ! Computation of the trend 343 END DO 344 ! 345 CALL lbc_lnk( zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions 346 ! 347 ! Computation of the trend 348 DO jk = 1, jpkm1 342 349 DO jj = 2, jpjm1 343 350 DO ji = fs_2, fs_jpim1 ! vector opt. … … 349 356 END DO 350 357 END DO 351 !352 358 END DO 353 359 ! ! trend diagnostics (contribution of upstream fluxes)
Note: See TracChangeset
for help on using the changeset viewer.