| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1122 |
BLMIX |
_KPP_RL f1, sig, a1, a2, a3, delhat |
|
./pkg/kpp/kpp_routines.F |
1181 |
BLMIX |
f1 = stable(i) * conc1 * bfsfc(i) / |
|
./pkg/kpp/kpp_routines.F |
1184 |
BLMIX |
dat1m(i) = -viscp / wm(i) + f1 * visch |
|
./pkg/kpp/kpp_routines.F |
1187 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1190 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/fizhi/update_ocean_exports.F |
627 |
BCDATA |
real*4 f1(im,jm), f2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
630 |
BCDATA |
read(iunit,rec=nrec1) f1 |
|
./pkg/fizhi/update_ocean_exports.F |
634 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f1) |
|
./pkg/fizhi/update_ocean_exports.F |
639 |
BCDATA |
field1(i,j) = f1(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
224 |
QSAT |
_RL f0, f1, f2, f3, f4, f5, f6 |
|
./pkg/fizhi/fizhi_utils.F |
300 |
QSAT |
parameter ( f1 = 0.191372282e+00 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
356 |
QSAT |
qx = f0+t*(f1+t*(f2+t*(f3+t*(f4+t*(f5+t*f6))))) |
|
./pkg/gmredi/gmredi_slope_psi.F |
316 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
323 |
GMREDI_SLOPE_PSI |
taperX(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
taperY(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
61 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
348 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
66 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |