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 2406 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90 – NEMO

Ignore:
Timestamp:
2010-11-19T08:04:49+01:00 (13 years ago)
Author:
sga
Message:

NEMO branch nemo_v3_3_beta
Small bugfix for linear equation of state (temperature only) in eosbn2.F90, jp_sal used instead of jp_tem
Problem discovered by George Nurser.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r2371 r2406  
    298298      CASE( 1 )                !==  Linear formulation = F( temperature )  ==! 
    299299         DO jk = 1, jpkm1 
    300             prd  (:,:,jk) = ( 0.0285_wp - rn_alpha * pts(:,:,jk,jp_sal) )        * tmask(:,:,jk) 
     300            prd  (:,:,jk) = ( 0.0285_wp - rn_alpha * pts(:,:,jk,jp_tem) )        * tmask(:,:,jk) 
    301301            prhop(:,:,jk) = ( 1.e0_wp   +            prd (:,:,jk)       ) * rau0 * tmask(:,:,jk) 
    302302         END DO 
Note: See TracChangeset for help on using the changeset viewer.