| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
13 |
GAD_ADVECTION |
I implicitAdvection, advectionScheme, vertAdvecScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
363 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_advection.F |
364 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
365 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
368 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
372 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
376 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
381 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
532 |
GAD_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_advection.F |
533 |
GAD_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
534 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
537 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
541 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
545 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
550 |
GAD_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
71 |
GAD_ADVECTION |
INTEGER advectionScheme, vertAdvecScheme |
|
./pkg/generic_advdiff/gad_advection.F |
785 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
105 |
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 |
218 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_CENTERED_2ND) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
220 |
GAD_CALC_RHS |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
221 |
GAD_CALC_RHS |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
222 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
225 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
229 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_UPWIND_3RD ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
231 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
233 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
237 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
251 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
333 |
GAD_CALC_RHS |
IF (advectionScheme.EQ.ENUM_CENTERED_2ND) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
335 |
GAD_CALC_RHS |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
336 |
GAD_CALC_RHS |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
340 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
344 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_UPWIND_3RD ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
346 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
348 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
352 |
GAD_CALC_RHS |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
366 |
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, |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
46 |
GAD_DST2U1_IMPL_R |
INTEGER advectionScheme |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
68 |
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 |
110 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_FLUX_LIMIT .OR. |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
& advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
226 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
232 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/generic_advdiff/gad_implicit_r.F |
233 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
236 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
239 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
245 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_3RD |
|
./pkg/generic_advdiff/gad_implicit_r.F |
246 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_CENTERED_4TH |
|
./pkg/generic_advdiff/gad_implicit_r.F |
247 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
250 |
GAD_IMPLICIT_R |
I advectionScheme, deltaTLev, rTrans, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
253 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
41 |
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 |
211 |
GAD_SOM_ADVECT |
IF ( vertAdvecScheme .NE. advectionScheme ) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
244 |
GAD_SOM_ADVECT |
limiter = MOD(advectionScheme, 10) |
|
./pkg/generic_advdiff/gad_som_advect.F |
325 |
GAD_SOM_ADVECT |
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER |
|
./pkg/generic_advdiff/gad_som_advect.F |
326 |
GAD_SOM_ADVECT |
& .OR. advectionScheme.EQ.ENUM_SOM_LIMITER ) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
389 |
GAD_SOM_ADVECT |
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER |
|
./pkg/generic_advdiff/gad_som_advect.F |
390 |
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 |
100 |
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, |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
51 |
GAD_U3C4_IMPL_R |
INTEGER advectionScheme |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
86 |
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 |
340 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/seaice/seaice_advection.F |
341 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/seaice/seaice_advection.F |
342 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
351 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/seaice/seaice_advection.F |
355 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
359 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/seaice/seaice_advection.F |
364 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/seaice/seaice_advection.F |
539 |
SEAICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/seaice/seaice_advection.F |
540 |
SEAICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/seaice/seaice_advection.F |
541 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
550 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/seaice/seaice_advection.F |
554 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
558 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/seaice/seaice_advection.F |
563 |
SEAICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_OS7MP ) THEN |
|
./pkg/seaice/seaice_advection.F |
79 |
SEAICE_ADVECTION |
INTEGER advectionScheme |
|
./pkg/thsice/thsice_advection.F |
16 |
THSICE_ADVECTION |
I advectionScheme, |
|
./pkg/thsice/thsice_advection.F |
332 |
THSICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/thsice/thsice_advection.F |
333 |
THSICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/thsice/thsice_advection.F |
334 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
340 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/thsice/thsice_advection.F |
344 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/thsice/thsice_advection.F |
348 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/thsice/thsice_advection.F |
547 |
THSICE_ADVECTION |
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./pkg/thsice/thsice_advection.F |
548 |
THSICE_ADVECTION |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./pkg/thsice/thsice_advection.F |
549 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
555 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_FLUX_LIMIT) THEN |
|
./pkg/thsice/thsice_advection.F |
559 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./pkg/thsice/thsice_advection.F |
563 |
THSICE_ADVECTION |
ELSEIF (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./pkg/thsice/thsice_advection.F |
80 |
THSICE_ADVECTION |
INTEGER advectionScheme |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
108 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_FLUX_LIMIT .OR. |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
109 |
GAD_IMPLICIT_R |
& advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
10 |
GAD_IMPLICIT_R |
I implicitAdvection, advectionScheme, tracerIdentity, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
224 |
GAD_IMPLICIT_R |
IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
231 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST2 ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
234 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
237 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_FLUX_LIMIT ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
243 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_3RD |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
244 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_CENTERED_4TH |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
245 |
GAD_IMPLICIT_R |
& .OR. advectionScheme.EQ.ENUM_DST3 ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
248 |
GAD_IMPLICIT_R |
I advectionScheme, dTtracerLev, rTrans, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
251 |
GAD_IMPLICIT_R |
ELSEIF ( advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
40 |
GAD_IMPLICIT_R |
INTEGER advectionScheme |