| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
478 |
GGL90_IDEMIX |
_RL x,c,xx |
|
./pkg/ggl90/ggl90_idemix.F |
482 |
GGL90_IDEMIX |
c= 1.d0-(2.d0/pi)*ASIN(1.d0/x) |
|
./pkg/ggl90/ggl90_idemix.F |
483 |
GGL90_IDEMIX |
IDEMIX_gofx2 = 2.d0/pi/c*0.9d0*x**(-2.d0/3.d0)*(1.-EXP(-x/4.3d0)) |
|
./pkg/ptracers/PTRACERS_MOD.h |
25 |
NO PROCEDURE |
PtrISt(g)som_P(a,b,c,d,e,f) |
|
./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 - ( a(i,j,k) + c(i,j,k) ) |
|
./model/src/impldiff.F |
240 |
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/seaice/seaice_fgmres.F |
337 |
SEAICE_FGMRES |
_RL c(4*imax,MAX_NO_THREADS),s(4*imax,MAX_NO_THREADS) |
|
./pkg/seaice/seaice_fgmres.F |
351 |
SEAICE_FGMRES |
COMMON /SEAICE_FMRES_LOC_RL/ hh, c, s, rs, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
500 |
SEAICE_FGMRES |
hh(k1,i,myThid) = c(k1,myThid)*t+s(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
501 |
SEAICE_FGMRES |
hh(k,i,myThid) = -s(k1,myThid)*t+c(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
507 |
SEAICE_FGMRES |
c(i,myThid) = hh(i, i,myThid)/gam |
|
./pkg/seaice/seaice_fgmres.F |
525 |
SEAICE_FGMRES |
rs(i ,myThid) = c(i,myThid)*rs(i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
529 |
SEAICE_FGMRES |
hh(i,i,myThid) = c(i,myThid)*hh(i, i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
584 |
SEAICE_FGMRES |
rs(jj ,myThid) = c(jj-1,myThid)*rs(jj,myThid) |
|
./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/bling/bling_carbon_chem.F |
177 |
CALC_PCO2 |
c = 1.0 + stlocal/kslocal |
|
./pkg/bling/bling_carbon_chem.F |
195 |
CALC_PCO2 |
& x/c - |
|
./pkg/bling/bling_carbon_chem.F |
196 |
CALC_PCO2 |
& stlocal/(1.0 + kslocal/x/c) - |
|
./pkg/bling/bling_carbon_chem.F |
212 |
CALC_PCO2 |
& 1.0/c + |
|
./pkg/bling/bling_carbon_chem.F |
213 |
CALC_PCO2 |
& stlocal*(1.0 + kslocal/x/c)**(-2.0)*(kslocal/c/x2) + |
|
./pkg/bling/bling_carbon_chem.F |
249 |
CALC_PCO2 |
c = 1.0 + stlocal/kslocal |
|
./pkg/bling/bling_carbon_chem.F |
264 |
CALC_PCO2 |
& x/c - |
|
./pkg/bling/bling_carbon_chem.F |
265 |
CALC_PCO2 |
& stlocal/(1.0 + kslocal/x/c) - |
|
./pkg/bling/bling_carbon_chem.F |
89 |
CALC_PCO2 |
_RL c |
|
./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 |