Skip to content

Commit ded8fa6

Browse files
authored
Merge pull request #855 from FESOM/bugfix/cavity_3eq_system
Update water_flux calculation in cavity_param.F90
2 parents b8bb1d8 + 678298b commit ded8fa6

File tree

2 files changed

+7
-7
lines changed

2 files changed

+7
-7
lines changed

setups/test_pi_cavity/setup.yml

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -59,12 +59,12 @@ namelist.io:
5959
prec: 8
6060

6161
fcheck:
62-
a_ice: 0.8922816940404571
63-
salt: 34.71518655581704
64-
sst: 12.806226630290732
65-
temp: 2.844705384878494
66-
u: -0.0027710946118024962
67-
v: -0.00025344388118151974
62+
a_ice: 0.8922816930614722
63+
salt: 34.71518654875407
64+
sst: 12.806226998388576
65+
temp: 2.8447054270089347
66+
u: -0.002771103825917723
67+
v: -0.00025341094981021055
6868

6969

7070

src/cavity_param.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -362,7 +362,7 @@ subroutine cavity_heat_water_fluxes_3eq(ice, dynamics, tracers, partit, mesh)
362362
!rt s_surf_flux(i,j)=gas*(sf-(s(i,j,N,lrhs)+35.0))
363363

364364
heat_flux(node) = rhow*cpw*gat*(tin-tf) ! [W/m2] ! positive for upward
365-
water_flux(node) = gas*(sf-sal)/sf ! [m/s] !
365+
water_flux(node) = ep5*(sf-sal)/sf ! [m/s] !
366366

367367
! qo=-rhor*seta*oofw
368368
! if(seta.le.0.) then

0 commit comments

Comments
 (0)