| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
145 |
GAD_ADVECTION |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/generic_advdiff/gad_advection.F |
232 |
GAD_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_advection.F |
238 |
GAD_ADVECTION |
W_edge = .TRUE. |
|
./pkg/generic_advdiff/gad_advection.F |
246 |
GAD_ADVECTION |
W_edge = .FALSE. |
|
./pkg/generic_advdiff/gad_advection.F |
408 |
GAD_ADVECTION |
IF ( W_edge ) iMinUpd = 1 |
|
./pkg/generic_advdiff/gad_advection.F |
510 |
GAD_ADVECTION |
IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
580 |
GAD_ADVECTION |
IF ( W_edge ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
611 |
GAD_ADVECTION |
IF ( interiorOnly .AND. W_edge ) iMinUpd = 1 |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
132 |
GAD_SOM_ADV_X |
IF ( W_edge ) iMinUpd(1) = 1 |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
13 |
GAD_SOM_ADV_X |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
53 |
GAD_SOM_ADV_X |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
134 |
GAD_SOM_ADV_Y |
IF ( W_edge ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
139 |
GAD_SOM_ADV_Y |
IF ( W_edge ) nbStrips = 2 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
13 |
GAD_SOM_ADV_Y |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
145 |
GAD_SOM_ADV_Y |
IF ( interiorOnly .AND. W_edge ) iMinUpd(1) = 1 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
53 |
GAD_SOM_ADV_Y |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/generic_advdiff/gad_som_advect.F |
143 |
GAD_SOM_ADVECT |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/generic_advdiff/gad_som_advect.F |
227 |
GAD_SOM_ADVECT |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
233 |
GAD_SOM_ADVECT |
W_edge = .TRUE. |
|
./pkg/generic_advdiff/gad_som_advect.F |
241 |
GAD_SOM_ADVECT |
W_edge = .FALSE. |
|
./pkg/generic_advdiff/gad_som_advect.F |
320 |
GAD_SOM_ADVECT |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_advect.F |
330 |
GAD_SOM_ADVECT |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_advect.F |
376 |
GAD_SOM_ADVECT |
& (.NOT.overlapOnly .OR. E_edge .OR. W_edge) |
|
./pkg/generic_advdiff/gad_som_advect.F |
384 |
GAD_SOM_ADVECT |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_advect.F |
394 |
GAD_SOM_ADVECT |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
12 |
GAD_SOM_PREP_CS_CORNER |
I N_edge, S_edge, E_edge, W_edge, |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
55 |
GAD_SOM_PREP_CS_CORNER |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
68 |
GAD_SOM_PREP_CS_CORNER |
southWestCorner = S_edge .AND. W_edge |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
71 |
GAD_SOM_PREP_CS_CORNER |
northWestCorner = N_edge .AND. W_edge |
|
./pkg/seaice/seaice_advection.F |
130 |
SEAICE_ADVECTION |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/seaice/seaice_advection.F |
202 |
SEAICE_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/seaice/seaice_advection.F |
208 |
SEAICE_ADVECTION |
W_edge = .TRUE. |
|
./pkg/seaice/seaice_advection.F |
216 |
SEAICE_ADVECTION |
W_edge = .FALSE. |
|
./pkg/seaice/seaice_advection.F |
393 |
SEAICE_ADVECTION |
IF ( W_edge ) iMinUpd = 1 |
|
./pkg/seaice/seaice_advection.F |
514 |
SEAICE_ADVECTION |
IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN |
|
./pkg/seaice/seaice_advection.F |
595 |
SEAICE_ADVECTION |
IF ( W_edge .AND. extensiveFld ) THEN |
|
./pkg/seaice/seaice_advection.F |
605 |
SEAICE_ADVECTION |
ELSEIF ( W_edge ) THEN |
|
./pkg/seaice/seaice_advection.F |
640 |
SEAICE_ADVECTION |
IF ( W_edge ) THEN |
|
./pkg/seaice/seaice_advection.F |
659 |
SEAICE_ADVECTION |
IF ( interiorOnly .AND. W_edge ) iMinUpd = 1 |
|
./pkg/thsice/thsice_advection.F |
135 |
THSICE_ADVECTION |
LOGICAL N_edge, S_edge, E_edge, W_edge |
|
./pkg/thsice/thsice_advection.F |
185 |
THSICE_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
|
./pkg/thsice/thsice_advection.F |
191 |
THSICE_ADVECTION |
W_edge = .TRUE. |
|
./pkg/thsice/thsice_advection.F |
199 |
THSICE_ADVECTION |
W_edge = .FALSE. |
|
./pkg/thsice/thsice_advection.F |
379 |
THSICE_ADVECTION |
IF ( W_edge ) iMinUpd = 1 |
|
./pkg/thsice/thsice_advection.F |
506 |
THSICE_ADVECTION |
IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN |
|
./pkg/thsice/thsice_advection.F |
600 |
THSICE_ADVECTION |
IF ( W_edge .AND. useGridVolume ) THEN |
|
./pkg/thsice/thsice_advection.F |
609 |
THSICE_ADVECTION |
ELSEIF ( W_edge ) THEN |
|
./pkg/thsice/thsice_advection.F |
649 |
THSICE_ADVECTION |
IF ( W_edge ) THEN |
|
./pkg/thsice/thsice_advection.F |
668 |
THSICE_ADVECTION |
IF ( interiorOnly .AND. W_edge ) iMinUpd = 1 |