| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
202 |
EXF_BULKFORMULAE |
_RL ssq |
|
./pkg/exf/exf_bulkformulae.F |
303 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho_loc(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
305 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho |
|
./pkg/exf/exf_bulkformulae.F |
308 |
EXF_BULKFORMULAE |
delq(i,j) = aqh(i,j,bi,bj) - ssq |
|
./pkg/seaice/seaice_budget_ocean.F |
131 |
SEAICE_BUDGET_OCEAN |
ssq = QS1*6.11 _d 0 *EXP( 17.2694 _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
134 |
SEAICE_BUDGET_OCEAN |
hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq) |
|
./pkg/seaice/seaice_budget_ocean.F |
67 |
SEAICE_BUDGET_OCEAN |
_RL ssq, sstdegC |
|
./pkg/thsice/thsice_get_bulkf.F |
120 |
THSICE_GET_BULKF |
ssq = 0. |
|
./pkg/thsice/thsice_get_bulkf.F |
128 |
THSICE_GET_BULKF |
O evap(i,j), ssq, dEvdT(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
135 |
THSICE_GET_BULKF |
O evap(i,j), ssq, dEvdT(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
78 |
THSICE_GET_BULKF |
_RL ust, vst, ssq |
|
./pkg/thsice/thsice_get_exf.F |
115 |
THSICE_GET_EXF |
_RL ssq (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
198 |
THSICE_GET_EXF |
ssq(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
253 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho_loc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
255 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho |
|
./pkg/thsice/thsice_get_exf.F |
258 |
THSICE_GET_EXF |
delq(i,j) = aqh(i,j,bi,bj) - ssq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
263 |
THSICE_GET_EXF |
dEvdT(i,j) = ssq(i,j)*qsat_exp/Ts2 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
12 |
BULKF_FORMULA_LANL |
O ust, vst, evp, ssq, dEvdT, |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
151 |
BULKF_FORMULA_LANL |
ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
154 |
BULKF_FORMULA_LANL |
delq = Qa - ssq |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
218 |
BULKF_FORMULA_LANL |
dEvdT = clha*ssq*ssq2/(Tsf*Tsf) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
61 |
BULKF_FORMULA_LANL |
_RL ssq ! surface specific humidity [kg/kg] |
|
./pkg/bulk_force/bulkf_formula_lay.F |
12 |
BULKF_FORMULA_LAY |
O ust, vst, evp, ssq, dEvdT, |
|
./pkg/bulk_force/bulkf_formula_lay.F |
158 |
BULKF_FORMULA_LAY |
ssq = saltQsFac*qs1w*EXP( -qs2w/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_formula_lay.F |
162 |
BULKF_FORMULA_LAY |
ssq = qs1i*EXP( -qs2i/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_formula_lay.F |
169 |
BULKF_FORMULA_LAY |
delq = Qa - ssq |
|
./pkg/bulk_force/bulkf_formula_lay.F |
240 |
BULKF_FORMULA_LAY |
dEvdT = tau*re*ssq*dEvdT/Ts2 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
67 |
BULKF_FORMULA_LAY |
_RL ssq ! surface specific humidity [kg/kg] |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
137 |
CHEAPAML_LANL_FLUX |
ssq= ssq0*exp( lath*(ssq1-ssq2/toa) ) / p0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
140 |
CHEAPAML_LANL_FLUX |
ssqt = 0.7 _d 0*ssq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
145 |
CHEAPAML_LANL_FLUX |
q=QaR * ssq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
150 |
CHEAPAML_LANL_FLUX |
delq = q - ssq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
217 |
CHEAPAML_LANL_FLUX |
q100=ssq+qstar*(dlog(100. _d 0/zice)-psx100) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
66 |
CHEAPAML_LANL_FLUX |
_RL ssq, q |