| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
15 |
GAD_ADVECTION |
I implicitAdvection, advectionScheme, vertAdvecScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
399 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_advection.F |
400 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
401 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
404 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
408 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
412 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
596 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_advection.F |
597 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
598 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
601 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
605 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
609 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
614 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
73 |
GAD_ADVECTION |
INTEGER advectionScheme, vertAdvecScheme |
|
./pkg/generic_advdiff/gad_advection.F |
861 |
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 |
349 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_CENTERED_2ND) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
351 |
GAD_CALC_RHS |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
352 |
GAD_CALC_RHS |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
353 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
366 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
370 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_UPWIND_3RD ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
373 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
377 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 .OR. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
378 |
GAD_CALC_RHS |
& (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT .AND. inAdMode) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
384 |
GAD_CALC_RHS |
ELSEIF( advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
394 |
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 |
47 |
GAD_DST2U1_IMPL_R |
INTEGER advectionScheme |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
70 |
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 |
118 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_FLUX_LIMIT .OR. |
|
./pkg/generic_advdiff/gad_implicit_r.F |
119 |
GAD_IMPLICIT_R |
& advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
203 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
209 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
213 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
217 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
223 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_3RD |
|
./pkg/generic_advdiff/gad_implicit_r.F |
224 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_CENTERED_4TH |
|
./pkg/generic_advdiff/gad_implicit_r.F |
225 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
228 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
232 |
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 |
141 |
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 |
16 |
SEAICE_ADVECTION |
I advectionScheme, |
|
./pkg/seaice/seaice_advection.F |
363 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/seaice/seaice_advection.F |
364 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/seaice/seaice_advection.F |
365 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
374 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/seaice/seaice_advection.F |
378 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
382 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/seaice/seaice_advection.F |
387 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/seaice/seaice_advection.F |
394 |
SEAICE_ADVECTION |
& 'SEAICE_ADVECTION: adv. scheme ', advectionScheme, |
|
./pkg/seaice/seaice_advection.F |
565 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/seaice/seaice_advection.F |
566 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/seaice/seaice_advection.F |
567 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
576 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/seaice/seaice_advection.F |
580 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
584 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/seaice/seaice_advection.F |
589 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/seaice/seaice_advection.F |
596 |
SEAICE_ADVECTION |
& 'SEAICE_ADVECTION: adv. scheme ', advectionScheme, |
|
./pkg/seaice/seaice_advection.F |
83 |
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 |