Changeset 484 for trunk/NEMO/OPA_SRC/iom.F90
- Timestamp:
- 2006-06-21T17:04:04+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/iom.F90
r478 r484 552 552 IF( zofs /= 0. ) pv_r3d(nldi:nlei,nldj:nlej,:) = pv_r3d(nldi:nlei,nldj:nlej,:) + zofs 553 553 !--- Fill the overlap areas and extra hallows (mpp) 554 IF( jpk == jpkdta) CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' ) ! this if could be removed with the new lbc_lnk ...554 IF( icnt(3) == jpk ) CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' ) ! this if could be removed with the new lbc_lnk ... 555 555 ELSE 556 556 CALL fliogetv( knumfl, cdvar, pv_r3d(:,:,:), start=istart(1:inbdim), count=icnt(1:inbdim) )
Note: See TracChangeset
for help on using the changeset viewer.