| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1072 |
FLUXES |
DEA = SIGN(.5*EA(CHNO),DEA) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
91 |
GAD_DST3FL_ADV_R |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
96 |
GAD_DST3FL_ADV_R |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
73 |
GAD_DST3FL_ADV_X |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
78 |
GAD_DST3FL_ADV_X |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
69 |
GAD_DST3FL_ADV_Y |
thetaP=SIGN(thetaMax,Rjm*Rj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
74 |
GAD_DST3FL_ADV_Y |
thetaM=SIGN(thetaMax,Rjp*Rj) |
|
./pkg/gmredi/gmredi_slope_limit.F |
177 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
182 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
536 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
541 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
216 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
248 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/kpp/kpp_routines.F |
1035 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1037 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
222 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
255 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
402 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/seaice/dynsolver.F |
131 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
335 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
339 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
454 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
458 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
460 |
DYNSOLVER |
& *(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_evp.F |
461 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
472 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
101 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
165 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
173 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
179 |
SEAICE_GET_DYNFORCING |
& (CDAIR(I,J)*(SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
187 |
SEAICE_GET_DYNFORCING |
& +CDAIR(I,J-1)*(SIGN(SINWIN, _fCori(I,J-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
207 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J ,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
99 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/seaice_lsr.F |
251 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
262 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/thsice/thsice_get_exf.F |
282 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
336 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, huol) |
|
./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/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
126 |
DWNSLP_CALC_FLOW |
sgnFac = SIGN(1,-ijr) |
|
./pkg/exf/exf_bulkformulae.F |
299 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
369 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |