| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/PTRACERS_MOD.h |
25 |
NO PROCEDURE |
PtrISt(g)som_P(a,b,c,d,e,f) |
|
./pkg/seaice/seaice_fgmres.F |
469 |
SEAICE_FGMRES |
_RL hh(4*imax+1,4*imax),c(4*imax),s(4*imax) |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
& hh, c, s, rs, t, ro, r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
642 |
SEAICE_FGMRES |
hh(k1,i) = c(k1)*t + s(k1)*hh(k,i) |
|
./pkg/seaice/seaice_fgmres.F |
643 |
SEAICE_FGMRES |
hh(k,i) = -s(k1)*t + c(k1)*hh(k,i) |
|
./pkg/seaice/seaice_fgmres.F |
649 |
SEAICE_FGMRES |
c(i) = hh(i,i)/gam |
|
./pkg/seaice/seaice_fgmres.F |
667 |
SEAICE_FGMRES |
rs(i) = c(i)*rs(i) |
|
./pkg/seaice/seaice_fgmres.F |
671 |
SEAICE_FGMRES |
hh(i,i) = c(i)*hh(i,i) + s(i)*hh(i1,i) |
|
./pkg/seaice/seaice_fgmres.F |
721 |
SEAICE_FGMRES |
rs(jj) = c(jj-1)*rs(jj) |
|
./model/src/impldiff.F |
159 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
163 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
174 |
IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./model/src/impldiff.F |
187 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./model/src/impldiff.F |
238 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
69 |
IMPLDIFF |
_RL c(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
133 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
41 |
SMOOTH_IMPLDIFF |
_RL c(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
79 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
83 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
89 |
SMOOTH_IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
289 |
CHEAPAML_COARE3_FLUX |
_RL x,y,psik,psic,f,c |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
302 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
304 |
CHEAPAML_COARE3_FLUX |
psiu = -( (1.+zL) + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
327 |
CHEAPAML_COARE3_FLUX |
_RL x,y,psik,psic,f,c |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
340 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
342 |
CHEAPAML_COARE3_FLUX |
& + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/dic/carbon_chem.F |
182 |
CALC_PCO2 |
c = 1.0 + stlocal/kslocal |
|
./pkg/dic/carbon_chem.F |
200 |
CALC_PCO2 |
& x/c - |
|
./pkg/dic/carbon_chem.F |
201 |
CALC_PCO2 |
& stlocal/(1.0 + kslocal/x/c) - |
|
./pkg/dic/carbon_chem.F |
217 |
CALC_PCO2 |
& 1.0/c + |
|
./pkg/dic/carbon_chem.F |
218 |
CALC_PCO2 |
& stlocal*(1.0 + kslocal/x/c)**(-2.0)*(kslocal/c/x2) + |
|
./pkg/dic/carbon_chem.F |
254 |
CALC_PCO2 |
c = 1.0 + stlocal/kslocal |
|
./pkg/dic/carbon_chem.F |
269 |
CALC_PCO2 |
& x/c - |
|
./pkg/dic/carbon_chem.F |
270 |
CALC_PCO2 |
& stlocal/(1.0 + kslocal/x/c) - |
|
./pkg/dic/carbon_chem.F |
94 |
CALC_PCO2 |
_RL c |