| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_forcing_sep.F |
100 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
103 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
106 |
GCHEM_FORCING_SEP |
print*,'mean surface dic', gsm_dic,gsm_s |
|
./pkg/gchem/gchem_forcing_sep.F |
116 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
119 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
122 |
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 |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
237 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |