| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
154 |
GAD_PQM_FUN_MONO |
_RL iflx(+1:+2) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
236 |
GAD_PQM_FUN_MONO |
if ( QUADROOT(aval,bval,cval,iflx) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
240 |
GAD_PQM_FUN_MONO |
if ( ( iflx(1) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
241 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(1) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
245 |
GAD_PQM_FUN_MONO |
& + iflx(1) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
246 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
247 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
266 |
GAD_PQM_FUN_MONO |
if ( ( iflx(2) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
267 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(2) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
271 |
GAD_PQM_FUN_MONO |
& + iflx(2) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
272 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
273 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/dic/car_flux_omega_top.F |
108 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1) then |
|
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
60 |
CAR_FLUX_OMEGA_TOP |
INTEGER iflx |
|
./pkg/dic/car_flux_omega_top.F |
75 |
CAR_FLUX_OMEGA_TOP |
iflx=1 |