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 13786 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbthm.F90 – NEMO

Ignore:
Timestamp:
2020-11-12T19:13:23+01:00 (4 years ago)
Author:
mathiot
Message:

ticket #1900: cosmetic change

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbthm.F90

    r13359 r13786  
    102102         zM   = pt%mass 
    103103         zT   = pt%thickness                               ! total thickness 
    104          zD   = rho_berg_1_oce * zT          ! draught (keel depth) 
    105        ! F   = zT - D ! freeboard 
     104         zD   = rho_berg_1_oce * zT                        ! draught (keel depth) 
    106105         zW   = pt%width 
    107106         zL   = pt%length 
    … …  
    125124            CALL icb_utl_getkb( pt%kb, ze3t, zD ) 
    126125 
    127             ikb = MIN(pt%kb,mbkt(ii,ij)) 
    128             ztb = ztoce(ikb)                                                ! basal temperature 
     126            ikb = MIN(pt%kb,mbkt(ii,ij))                             ! limit pt%kb by mbkt  
     127                                                                     ! => bottom temperature used to fill ztoce(mbkt:jpk) 
     128            ztb = ztoce(ikb)                                         ! basal temperature 
    129129            zub = zuoce(ikb) 
    130130            zvb = zvoce(ikb) 
Note: See TracChangeset for help on using the changeset viewer.