| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
312 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
383 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./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 |
264 |
GMREDI_K3D |
cori(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(coriU(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
284 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(coriV(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
646 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
654 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_slope_limit.F |
469 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
474 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
215 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
249 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/kpp/kpp_routines.F |
1111 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1113 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
240 |
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 |
378 |
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 |
515 |
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 |
653 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/seaice/dynsolver.F |
135 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
154 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
& *SIGN(SINWAT, _fCori(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
244 |
LSR |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
246 |
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 |
174 |
SEAICE_CALC_LHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
184 |
SEAICE_CALC_LHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
76 |
SEAICE_CALC_RHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
85 |
SEAICE_CALC_RHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
396 |
SEAICE_EVP |
seaice_sigma1(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
seaice_sigma2(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
418 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
494 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
505 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
109 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
111 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
182 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
190 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
197 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
205 |
SEAICE_GET_DYNFORCING |
& +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
223 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i ,j,bi,bj))*vWind(i ,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
226 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
231 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
234 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
326 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
337 |
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 |
525 |
SEAICE_PRECOND_RHSU |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
647 |
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/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) |