New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 484 for trunk/NEMO/OPA_SRC – NEMO

Changeset 484 for trunk/NEMO/OPA_SRC


Ignore:
Timestamp:
2006-06-21T17:04:04+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_050 : SM + CT : allow to CALL lbc_lnk() for 3D fields read in restart files when using cpp key_orca_lev10, i.e. when jpk iis not equal to jpkdta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/iom.F90

    r478 r484  
    552552              IF( zofs /= 0. ) pv_r3d(nldi:nlei,nldj:nlej,:) = pv_r3d(nldi:nlei,nldj:nlej,:) + zofs 
    553553              !--- 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 ... 
    555555           ELSE 
    556556              CALL fliogetv( knumfl, cdvar, pv_r3d(:,:,:), start=istart(1:inbdim), count=icnt(1:inbdim) ) 
Note: See TracChangeset for help on using the changeset viewer.