Changeset 2406 for branches/nemo_v3_3_beta
- Timestamp:
- 2010-11-19T08:04:49+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r2371 r2406 298 298 CASE( 1 ) !== Linear formulation = F( temperature ) ==! 299 299 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) 301 301 prhop(:,:,jk) = ( 1.e0_wp + prd (:,:,jk) ) * rau0 * tmask(:,:,jk) 302 302 END DO
Note: See TracChangeset
for help on using the changeset viewer.