| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
314 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
385 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./pkg/exf/exf_interp_uv.F |
277 |
EXF_INTERP_UV |
pSign = SIGN( oneRL, y_in(j) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1072 |
FLUXES |
DEA = SIGN(.5*EA(CHNO),DEA) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
101 |
GAD_DST3FL_ADV_R |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
96 |
GAD_DST3FL_ADV_R |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
78 |
GAD_DST3FL_ADV_X |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
83 |
GAD_DST3FL_ADV_X |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
74 |
GAD_DST3FL_ADV_Y |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
79 |
GAD_DST3FL_ADV_Y |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/gmredi/gmredi_k3d.F |
266 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCoriU(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
275 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCoriV(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
289 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
657 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
665 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_slope_limit.F |
471 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
476 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
217 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
251 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/kpp/kpp_routines.F |
1176 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1178 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
155 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
157 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/lsr.F |
242 |
LSR |
& *SIGN(SINWAT, _fCori(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/seaice_calc_lhs.F |
172 |
SEAICE_CALC_LHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
182 |
SEAICE_CALC_LHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
104 |
SEAICE_CALC_RHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
95 |
SEAICE_CALC_RHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
612 |
SEAICE_EVP |
seaice_sigma1(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
615 |
SEAICE_EVP |
seaice_sigma2(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
651 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
785 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
796 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
123 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
194 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
202 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
209 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
217 |
SEAICE_GET_DYNFORCING |
& +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
235 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i ,j,bi,bj))*vWind(i ,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
238 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
243 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
246 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
394 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
515 |
SEAICE_PRECOND_RHSU |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
620 |
SEAICE_PRECOND_RHSV |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/thsice/thsice_get_exf.F |
309 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
366 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, huol) |
|
./pkg/aim_v23/phy_radiat.F |
114 |
SOL_OZ |
TanLat = SIGN(1. _d 0, SLAT(J) ) * largeTan |
|
./pkg/bulk_force/bulkf_formula_lay.F |
173 |
BULKF_FORMULA_LAY |
stable = half + SIGN(half, delth) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
192 |
BULKF_FORMULA_LAY |
huol = SIGN( MIN(abs(huol),10. _d 0), huol) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
193 |
BULKF_FORMULA_LAY |
stable = half + SIGN(half, huol) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
75 |
CHEAPAML_GAD_DST3FL_ADV_R |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
76 |
CHEAPAML_GAD_DST3FL_ADV_R |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
198 |
DIAGNOSTICS_SET_POINTERS |
k = SIGN(1,jdiag(md,ld)) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
127 |
DWNSLP_CALC_FLOW |
sgnFac = SIGN(1,-ijr) |