- Timestamp:
- 2015-10-06T18:28:13+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r5619 r5779 921 921 pn2(ji,jj,jk) = grav * ( zaw * ( pts(ji,jj,jk-1,jp_tem) - pts(ji,jj,jk,jp_tem) ) & 922 922 & - zbw * ( pts(ji,jj,jk-1,jp_sal) - pts(ji,jj,jk,jp_sal) ) ) & 923 & / fse3w(ji,jj,jk) * wmask(ji,jj,jk)923 & / fse3w(ji,jj,jk) * tmask(ji,jj,jk) 924 924 END DO 925 925 END DO … … 1242 1242 ! 1243 1243 rau0 = 1026._wp !: volumic mass of reference [kg/m3] 1244 rcp = 39 74._wp !: heat capacity [J/K]1244 rcp = 3991.86795711963_wp !: heat capacity [J/K] 1245 1245 ! 1246 1246 IF(lwp) THEN ! Control print
Note: See TracChangeset
for help on using the changeset viewer.