| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2680 |
CTEI |
_RL k,krd,kmm,f |
|
./pkg/fizhi/fizhi_moist.F |
2705 |
CTEI |
f = 1. |
|
./pkg/fizhi/fizhi_moist.F |
2706 |
CTEI |
if (s.GT.0. ) f = max( 0.0 _d 0, min( 1.0 _d 0, exp(-s)) ) |
|
./pkg/fizhi/fizhi_moist.F |
2708 |
CTEI |
cldfrc(i,L) = cldfrc(i,L)*f |
|
./pkg/fizhi/fizhi_moist.F |
2709 |
CTEI |
cldwat(i,L) = cldwat(i,L)*f |
|
./pkg/ptracers/PTRACERS_MOD.h |
25 |
NO PROCEDURE |
PtrISt(g)som_P(a,b,c,d,e,f) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
34 |
ADSTRMICE_H_INV |
_RL resid, f, fp, hf, htmp |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
44 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL resid, f, fp, hf, htmp |
|
./pkg/autodiff/tamc.h |
24 |
NO PROCEDURE |
If you see these lines in your .f files or the compiler shows them |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
289 |
CHEAPAML_COARE3_FLUX |
_RL x,y,psik,psic,f,c |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
299 |
CHEAPAML_COARE3_FLUX |
f = zL*zL/(1.+zL*zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
300 |
CHEAPAML_COARE3_FLUX |
psiu = (1.-f)*psik+f*psic |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
327 |
CHEAPAML_COARE3_FLUX |
_RL x,y,psik,psic,f,c |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
337 |
CHEAPAML_COARE3_FLUX |
f = zL*zL/(1.+zL*zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
338 |
CHEAPAML_COARE3_FLUX |
psit = (1.-f)*psik+f*psic |
|
./lsopt/cubic.F |
20 |
CUBIC |
z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t) |
|
./lsopt/cubic.F |
2 |
CUBIC |
subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper ) |
|
./lsopt/cubic.F |
7 |
CUBIC |
double precision t, f, fp, ta, fa, fpa, tlower, tupper |