Changeset 1874


Ignore:
Timestamp:
2010-05-17T16:17:38+02:00 (10 years ago)
Author:
rblod
Message:

Bug mpp at north fold when suppressing land processors, see ticket #668

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/lib_mpp.F90

    r1793 r1874  
    20492049      ijpj   = 4 
    20502050      ijpjm1 = 3 
     2051      ztab(:,:,:) = 0.e0 
    20512052      ! 
    20522053      DO jj = nlcj - ijpj +1, nlcj          ! put in znorthloc the last 4 jlines of pt3d 
     
    21142115      ijpj   = 4 
    21152116      ijpjm1 = 3 
     2117      ztab(:,:) = 0.e0 
    21162118      ! 
    21172119      DO jj = nlcj-ijpj+1, nlcj             ! put in znorthloc the last 4 jlines of pt2d 
     
    21792181      ! 
    21802182      ijpj=4 
     2183      ztab(:,:) = 0.e0 
    21812184 
    21822185      ij=0 
Note: See TracChangeset for help on using the changeset viewer.