| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
187 |
GWDRAG |
dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./pkg/fizhi/fizhi_swrad.F |
2054 |
DELEDD |
st3 = sign (st3,st7) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
157 |
GAD_OS7MP_ADV_R |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
164 |
GAD_OS7MP_ADV_R |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
161 |
GAD_OS7MP_ADV_X |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
168 |
GAD_OS7MP_ADV_X |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
161 |
GAD_OS7MP_ADV_Y |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
168 |
GAD_OS7MP_ADV_Y |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/kpp/kpp_routines.F |
1240 |
BLMIX |
wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i))) |
|
./pkg/kpp/kpp_routines.F |
1241 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
463 |
BLDEPTH |
stable(i) = p5 + sign(p5,bfsfc(i)) |
|
./pkg/kpp/kpp_routines.F |
593 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
594 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
689 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
690 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
699 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |
|
./pkg/aim_v23/phy_radiat.F |
107 |
SOL_OZ |
TanLat = sign(1. _d 0, SLAT(J) ) * LargeTan |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
169 |
BULKF_FORMULA_LANL |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
170 |
BULKF_FORMULA_LANL |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/cheapaml/cheapaml.F |
308 |
CHEAPAML |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/cheapaml/cheapaml.F |
309 |
CHEAPAML |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/ctrl/ctrl_map_ini.F |
111 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
151 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
123 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
294 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj)) |
|
./lsopt/cubic.F |
12 |
CUBIC |
double precision sign, den, anum |
|
./lsopt/cubic.F |
59 |
CUBIC |
sign = (t-ta)/abs(t-ta) |
|
./lsopt/cubic.F |
60 |
CUBIC |
if (sngl(b)*sign .gt. 0.0) then |
|
./pkg/exf/exf_bulkformulae.F |
376 |
EXF_BULKFORMULAE |
stable = exf_half + sign(exf_half, huol) |