File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_advection.F |
15 |
GAD_ADVECTION |
I implicitAdvection, advectionScheme, vertAdvecScheme, |
./pkg/generic_advdiff/gad_advection.F |
403 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/generic_advdiff/gad_advection.F |
404 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/generic_advdiff/gad_advection.F |
405 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
408 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
412 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_advection.F |
416 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_advection.F |
421 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/generic_advdiff/gad_advection.F |
425 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_PPM_NULL_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
426 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PPM_MONO_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
427 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PPM_WENO_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
428 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
431 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_PQM_NULL_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
432 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PQM_MONO_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
433 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PQM_WENO_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
434 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
612 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/generic_advdiff/gad_advection.F |
613 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/generic_advdiff/gad_advection.F |
614 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
617 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
621 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_advection.F |
625 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_advection.F |
630 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/generic_advdiff/gad_advection.F |
634 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_PPM_NULL_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
635 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PPM_MONO_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
636 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PPM_WENO_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
637 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
640 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_PQM_NULL_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
641 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PQM_MONO_LIMIT .OR. |
./pkg/generic_advdiff/gad_advection.F |
642 |
GAD_ADVECTION |
& advectionScheme.EQ.ENUM_PQM_WENO_LIMIT) THEN |
./pkg/generic_advdiff/gad_advection.F |
643 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
./pkg/generic_advdiff/gad_advection.F |
73 |
GAD_ADVECTION |
INTEGER advectionScheme, vertAdvecScheme |
./pkg/generic_advdiff/gad_advection.F |
956 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
./pkg/generic_advdiff/gad_calc_rhs.F |
107 |
GAD_CALC_RHS |
INTEGER advectionScheme, vertAdvecScheme |
./pkg/generic_advdiff/gad_calc_rhs.F |
16 |
GAD_CALC_RHS |
I advectionScheme, vertAdvecScheme, |
./pkg/generic_advdiff/gad_calc_rhs.F |
216 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_CENTERED_2ND) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
218 |
GAD_CALC_RHS |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/generic_advdiff/gad_calc_rhs.F |
219 |
GAD_CALC_RHS |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
220 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
./pkg/generic_advdiff/gad_calc_rhs.F |
233 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
237 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_UPWIND_3RD ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
240 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
244 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 .OR. |
./pkg/generic_advdiff/gad_calc_rhs.F |
245 |
GAD_CALC_RHS |
& (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT .AND. inAdMode) |
./pkg/generic_advdiff/gad_calc_rhs.F |
251 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
256 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
261 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
356 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_CENTERED_2ND) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
358 |
GAD_CALC_RHS |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/generic_advdiff/gad_calc_rhs.F |
359 |
GAD_CALC_RHS |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
360 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
./pkg/generic_advdiff/gad_calc_rhs.F |
373 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
377 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_UPWIND_3RD ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
380 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
384 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 .OR. |
./pkg/generic_advdiff/gad_calc_rhs.F |
385 |
GAD_CALC_RHS |
& (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT .AND. inAdMode) |
./pkg/generic_advdiff/gad_calc_rhs.F |
391 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
396 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_calc_rhs.F |
401 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
11 |
GAD_DST2U1_ADV_R |
I bi,bj,k, advectionScheme, |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
39 |
GAD_DST2U1_ADV_R |
INTEGER advectionScheme |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
61 |
GAD_DST2U1_ADV_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
11 |
GAD_DST2U1_ADV_X |
I bi,bj,k, advectionScheme, calcCFL, |
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
40 |
GAD_DST2U1_ADV_X |
INTEGER advectionScheme |
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
61 |
GAD_DST2U1_ADV_X |
IF ( advectionScheme.EQ.ENUM_DST2 ) xLimit = 1. _d 0 |
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
11 |
GAD_DST2U1_ADV_Y |
I bi,bj,k, advectionScheme, calcCFL, |
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
39 |
GAD_DST2U1_ADV_Y |
INTEGER bi,bj, k, advectionScheme |
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
60 |
GAD_DST2U1_ADV_Y |
IF ( advectionScheme.EQ.ENUM_DST2 ) yLimit = 1. _d 0 |
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
11 |
GAD_DST2U1_IMPL_R |
I advectionScheme, deltaTarg, rTrans, recip_hFac, |
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
49 |
GAD_DST2U1_IMPL_R |
INTEGER advectionScheme |
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
73 |
GAD_DST2U1_IMPL_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
./pkg/generic_advdiff/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
./pkg/generic_advdiff/gad_implicit_r.F |
165 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_FLUX_LIMIT .OR. |
./pkg/generic_advdiff/gad_implicit_r.F |
166 |
GAD_IMPLICIT_R |
& advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
214 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
220 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/generic_advdiff/gad_implicit_r.F |
221 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
224 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, |
./pkg/generic_advdiff/gad_implicit_r.F |
228 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
234 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_3RD |
./pkg/generic_advdiff/gad_implicit_r.F |
235 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_CENTERED_4TH |
./pkg/generic_advdiff/gad_implicit_r.F |
236 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
239 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, |
./pkg/generic_advdiff/gad_implicit_r.F |
243 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
INTEGER advectionScheme |
./pkg/generic_advdiff/gad_som_advect.F |
12 |
GAD_SOM_ADVECT |
I implicitAdvection, advectionScheme, vertAdvecScheme, |
./pkg/generic_advdiff/gad_som_advect.F |
205 |
GAD_SOM_ADVECT |
IF ( vertAdvecScheme .NE. advectionScheme ) THEN |
./pkg/generic_advdiff/gad_som_advect.F |
238 |
GAD_SOM_ADVECT |
limiter = MOD(advectionScheme, 10) |
./pkg/generic_advdiff/gad_som_advect.F |
323 |
GAD_SOM_ADVECT |
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER |
./pkg/generic_advdiff/gad_som_advect.F |
324 |
GAD_SOM_ADVECT |
& .OR. advectionScheme.EQ.ENUM_SOM_LIMITER ) THEN |
./pkg/generic_advdiff/gad_som_advect.F |
370 |
GAD_SOM_ADVECT |
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER |
./pkg/generic_advdiff/gad_som_advect.F |
371 |
GAD_SOM_ADVECT |
& .OR. advectionScheme.EQ.ENUM_SOM_LIMITER ) THEN |
./pkg/generic_advdiff/gad_som_advect.F |
52 |
GAD_SOM_ADVECT |
INTEGER advectionScheme, vertAdvecScheme |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
110 |
GAD_U3C4_IMPL_R |
ELSEIF ( advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
11 |
GAD_U3C4_IMPL_R |
I advectionScheme, deltaTarg, rTrans, recip_hFac, |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
142 |
GAD_U3C4_IMPL_R |
ELSEIF ( advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
52 |
GAD_U3C4_IMPL_R |
INTEGER advectionScheme |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
94 |
GAD_U3C4_IMPL_R |
flagC4 = advectionScheme.EQ.ENUM_CENTERED_4TH |
./pkg/seaice/seaice_advection.F |
19 |
SEAICE_ADVECTION |
I advectionScheme, |
./pkg/seaice/seaice_advection.F |
366 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/seaice/seaice_advection.F |
367 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/seaice/seaice_advection.F |
368 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
./pkg/seaice/seaice_advection.F |
377 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/seaice/seaice_advection.F |
381 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/seaice/seaice_advection.F |
385 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/seaice/seaice_advection.F |
390 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/seaice/seaice_advection.F |
397 |
SEAICE_ADVECTION |
& 'SEAICE_ADVECTION: adv. scheme ', advectionScheme, |
./pkg/seaice/seaice_advection.F |
568 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/seaice/seaice_advection.F |
569 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/seaice/seaice_advection.F |
570 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
./pkg/seaice/seaice_advection.F |
579 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/seaice/seaice_advection.F |
583 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/seaice/seaice_advection.F |
587 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/seaice/seaice_advection.F |
592 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
./pkg/seaice/seaice_advection.F |
599 |
SEAICE_ADVECTION |
& 'SEAICE_ADVECTION: adv. scheme ', advectionScheme, |
./pkg/seaice/seaice_advection.F |
86 |
SEAICE_ADVECTION |
INTEGER advectionScheme |
./pkg/thsice/thsice_advection.F |
16 |
THSICE_ADVECTION |
I advectionScheme, |
./pkg/thsice/thsice_advection.F |
357 |
THSICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/thsice/thsice_advection.F |
358 |
THSICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/thsice/thsice_advection.F |
359 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
./pkg/thsice/thsice_advection.F |
367 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/thsice/thsice_advection.F |
371 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/thsice/thsice_advection.F |
375 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/thsice/thsice_advection.F |
577 |
THSICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
./pkg/thsice/thsice_advection.F |
578 |
THSICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
./pkg/thsice/thsice_advection.F |
579 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
./pkg/thsice/thsice_advection.F |
587 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
./pkg/thsice/thsice_advection.F |
591 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
./pkg/thsice/thsice_advection.F |
595 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
./pkg/thsice/thsice_advection.F |
81 |
THSICE_ADVECTION |
INTEGER advectionScheme |