File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_advection.F |
142 |
GAD_ADVECTION |
LOGICAL N_edge, S_edge, E_edge, W_edge |
./pkg/generic_advdiff/gad_advection.F |
208 |
GAD_ADVECTION |
W_edge = exch2_isWedge(myTile).EQ.1 |
./pkg/generic_advdiff/gad_advection.F |
214 |
GAD_ADVECTION |
W_edge = .TRUE. |
./pkg/generic_advdiff/gad_advection.F |
221 |
GAD_ADVECTION |
W_edge = .FALSE. |
./pkg/generic_advdiff/gad_advection.F |
380 |
GAD_ADVECTION |
IF ( W_edge ) iMinUpd = 1 |
./pkg/generic_advdiff/gad_advection.F |
455 |
GAD_ADVECTION |
IF ( .NOT.overlapOnly .OR. E_edge .OR. W_edge ) THEN |
./pkg/generic_advdiff/gad_advection.F |
520 |
GAD_ADVECTION |
IF ( W_edge ) THEN |
./pkg/generic_advdiff/gad_advection.F |
549 |
GAD_ADVECTION |
IF ( interiorOnly .AND. W_edge ) iMinUpd = 1 |