Ignore:
Timestamp:
Aug 9, 2012 8:28:32 AM (9 years ago)
Author:
fricke
Message:

merge fricke branch back into trunk

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/poismg.f90

    r881 r978  
    77! Current revisions:
    88! -----------------
    9 !
     9! bc_lr/ns_dirneu/neudir added
     10!
    1011!
    1112! Former revisions:
     
    12291230!--       outflow conditions have to be used on all PEs after the switch,
    12301231!--       because then they have the total domain.
    1231           IF ( bc_lr_dirrad )  THEN
     1232          IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
    12321233             inflow_l  = .TRUE.
    12331234             inflow_r  = .FALSE.
    12341235             outflow_l = .FALSE.
    12351236             outflow_r = .TRUE.
    1236           ELSEIF ( bc_lr_raddir )  THEN
     1237          ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
    12371238             inflow_l  = .FALSE.
    12381239             inflow_r  = .TRUE.
     
    12411242          ENDIF
    12421243
    1243           IF ( bc_ns_dirrad )  THEN
     1244          IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
    12441245             inflow_n  = .TRUE.
    12451246             inflow_s  = .FALSE.
    12461247             outflow_n = .FALSE.
    12471248             outflow_s = .TRUE.
    1248           ELSEIF ( bc_ns_raddir )  THEN
     1249          ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
    12491250             inflow_n  = .FALSE.
    12501251             inflow_s  = .TRUE.
     
    13161317
    13171318          IF ( pleft == MPI_PROC_NULL )  THEN
    1318              IF ( bc_lr_dirrad )  THEN
     1319             IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
    13191320                inflow_l  = .TRUE.
    1320              ELSEIF ( bc_lr_raddir )  THEN
     1321             ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
    13211322                outflow_l = .TRUE.
    13221323             ENDIF
     
    13241325
    13251326          IF ( pright == MPI_PROC_NULL )  THEN
    1326              IF ( bc_lr_dirrad )  THEN
     1327             IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
    13271328                outflow_r = .TRUE.
    1328              ELSEIF ( bc_lr_raddir )  THEN
     1329             ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
    13291330                inflow_r  = .TRUE.
    13301331             ENDIF
     
    13321333
    13331334          IF ( psouth == MPI_PROC_NULL )  THEN
    1334              IF ( bc_ns_dirrad )  THEN
     1335             IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
    13351336                outflow_s = .TRUE.
    1336              ELSEIF ( bc_ns_raddir )  THEN
     1337             ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
    13371338                inflow_s  = .TRUE.
    13381339             ENDIF
     
    13401341
    13411342          IF ( pnorth == MPI_PROC_NULL )  THEN
    1342              IF ( bc_ns_dirrad )  THEN
     1343             IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
    13431344                inflow_n  = .TRUE.
    1344              ELSEIF ( bc_ns_raddir )  THEN
     1345             ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
    13451346                outflow_n = .TRUE.
    13461347             ENDIF
Note: See TracChangeset for help on using the changeset viewer.