| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_forcing_sep.F |
104 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
107 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
110 |
GCHEM_FORCING_SEP |
print*,'mean surface dic', gsm_dic,gsm_s |
|
./pkg/gchem/gchem_forcing_sep.F |
88 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
91 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
94 |
GCHEM_FORCING_SEP |
print*,'mean surface dic', gsm_dic,gsm_s |
|
./pkg/dic/DIC_VARS.h |
60 |
NO PROCEDURE |
& gsm_alk,gsm_s,gsm_t,gsm_dic, |
|
./pkg/dic/DIC_VARS.h |
63 |
NO PROCEDURE |
_RL gsm_s |
|
./pkg/dic/dic_surfforcing.F |
105 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
238 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |