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 1970 for branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2010-06-25T16:58:03+02:00 (14 years ago)
Author:
acc
Message:

ticket #684 step 5: Add in changes from the trunk between revisions 1821 and 1879.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/lib_mpp.F90

    r1953 r1970  
    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.