| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_forcing_sep.F |
66 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
69 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
72 |
GCHEM_FORCING_SEP |
print*,'mean surface dic', gsm_dic,gsm_s |
|
./pkg/gchem/gchem_forcing_sep.F |
78 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
81 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
84 |
GCHEM_FORCING_SEP |
print*,'mean surface dic', gsm_dic,gsm_s |
|
./pkg/dic/DIC_VARS.h |
58 |
NO PROCEDURE |
& gsm_alk,gsm_s,gsm_t,gsm_dic, |
|
./pkg/dic/DIC_VARS.h |
61 |
NO PROCEDURE |
_RL gsm_s |
|
./pkg/dic/dic_surfforcing.F |
197 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |