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 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 – NEMO

Ignore:
Timestamp:
2015-05-18T17:19:50+02:00 (9 years ago)
Author:
diovino
Message:

Dev. branch CMCC4_simplification ticket #1456

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r4990 r5282  
    362362         DO ji = 1, jpi 
    363363            ik = mbkt(ji,jj)                             ! bottom T-level index 
    364             zts (ji,jj,jp_tem) = tsb(ji,jj,ik,jp_tem)    ! bottom before T and S 
    365             zts (ji,jj,jp_sal) = tsb(ji,jj,ik,jp_sal) 
     364            zts(ji,jj,jp_tem) = tsb(ji,jj,ik,jp_tem)    ! bottom before T and S 
     365            zts(ji,jj,jp_sal) = tsb(ji,jj,ik,jp_sal) 
    366366            ! 
    367367            zdep(ji,jj) = fsdept(ji,jj,ik)               ! bottom T-level reference depth 
    368             zub (ji,jj) = un(ji,jj,mbku(ji,jj))          ! bottom velocity 
    369             zvb (ji,jj) = vn(ji,jj,mbkv(ji,jj)) 
     368            zub(ji,jj) = un(ji,jj,mbku(ji,jj))          ! bottom velocity 
     369            zvb(ji,jj) = vn(ji,jj,mbkv(ji,jj)) 
    370370         END DO 
    371371      END DO 
Note: See TracChangeset for help on using the changeset viewer.