| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
56 |
GAD_DST2U1_ADV_Y |
_RL vCFL, yLimit, vAbs |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
68 |
GAD_DST2U1_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
69 |
GAD_DST2U1_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
81 |
GAD_DST2U1_ADV_Y |
& *( 1. _d 0 - yLimit*(1. _d 0 - vCFL) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
60 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
84 |
GAD_DST3_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
85 |
GAD_DST3_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
87 |
GAD_DST3_ADV_Y |
d0=(2.-vCFL)*(1.-vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
88 |
GAD_DST3_ADV_Y |
d1=(1.-vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
57 |
GAD_DST3FL_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
58 |
GAD_DST3FL_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
60 |
GAD_DST3FL_ADV_Y |
d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
61 |
GAD_DST3FL_ADV_Y |
d1=(1. _d 0 -vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
86 |
GAD_DST3FL_ADV_Y |
& thetaP*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
89 |
GAD_DST3FL_ADV_Y |
& thetaM*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
63 |
GAD_FLUXLIMIT_ADV_Y |
_RL vCFL |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
76 |
GAD_FLUXLIMIT_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
77 |
GAD_FLUXLIMIT_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
99 |
GAD_FLUXLIMIT_ADV_Y |
& -ABS(vTrans(i,j))*((1.-Cr)+vCFL*Cr) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
105 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
109 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
112 |
GAD_PPM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
53 |
GAD_PPM_FLX_Y |
_RL vCFL,intF |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
78 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
82 |
GAD_PPM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
85 |
GAD_PPM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
111 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
115 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
118 |
GAD_PQM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
53 |
GAD_PQM_FLX_Y |
_RL vCFL,intF |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
78 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
82 |
GAD_PQM_FLX_Y |
vCFL = vvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
85 |
GAD_PQM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/monitor/mon_calc_advcfl.F |
155 |
MON_CALC_ADVCFL_GLOB |
_RL uCFL, vCFL, wCFL |
|
./pkg/monitor/mon_calc_advcfl.F |
158 |
MON_CALC_ADVCFL_GLOB |
vCFL = 0. |
|
./pkg/monitor/mon_calc_advcfl.F |
163 |
MON_CALC_ADVCFL_GLOB |
vCFL = MAX( vCFL, maxCFL(2,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
168 |
MON_CALC_ADVCFL_GLOB |
_GLOBAL_MAX_RL( vCFL, myThid ) |
|
./pkg/monitor/mon_calc_advcfl.F |
174 |
MON_CALC_ADVCFL_GLOB |
mon_trAdvCFL(2) = vCFL |