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 4915 for branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 – NEMO

Ignore:
Timestamp:
2014-11-28T12:39:53+01:00 (9 years ago)
Author:
cetlod
Message:

dev_r4615_CNRS1_10_TEOS10_Ediag : add missing lbc_lnk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r4680 r4915  
    198198         DO jj = 1, jpj 
    199199            DO ji = 1, jpi 
    200                zptb(ji,jj) = ptb(ji,jj,mbkt(ji,jj),jn)       ! bottom before T and S 
     200               ik = mbkt(ji,jj) 
     201               zptb(ji,jj) = ptb(ji,jj,ik,jn)       ! bottom before T and S 
    201202            END DO 
    202203         END DO 
Note: See TracChangeset for help on using the changeset viewer.