Ignore:
Timestamp:
Sep 7, 2012 10:41:47 AM (9 years ago)
Author:
raasch
Message:

parameter use_prior_plot1d_parameters removed; little reformatting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poismg.f90

    r979 r996  
    77! Current revisions:
    88! -----------------
    9 !
     9! little reformatting
    1010!
    1111! Former revisions:
     
    12321232!--       outflow conditions have to be used on all PEs after the switch,
    12331233!--       because then they have the total domain.
    1234           IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
     1234          IF ( bc_lr_dirrad  .OR. bc_lr_dirneu )  THEN
    12351235             inflow_l  = .TRUE.
    12361236             inflow_r  = .FALSE.
    12371237             outflow_l = .FALSE.
    12381238             outflow_r = .TRUE.
    1239           ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
     1239          ELSEIF ( bc_lr_raddir  .OR. bc_lr_neudir )  THEN
    12401240             inflow_l  = .FALSE.
    12411241             inflow_r  = .TRUE.
     
    12441244          ENDIF
    12451245
    1246           IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
     1246          IF ( bc_ns_dirrad  .OR. bc_ns_dirneu )  THEN
    12471247             inflow_n  = .TRUE.
    12481248             inflow_s  = .FALSE.
    12491249             outflow_n = .FALSE.
    12501250             outflow_s = .TRUE.
    1251           ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
     1251          ELSEIF ( bc_ns_raddir  .OR. bc_ns_neudir )  THEN
    12521252             inflow_n  = .FALSE.
    12531253             inflow_s  = .TRUE.
     
    13191319
    13201320          IF ( pleft == MPI_PROC_NULL )  THEN
    1321              IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
     1321             IF ( bc_lr_dirrad  .OR. bc_lr_dirneu )  THEN
    13221322                inflow_l  = .TRUE.
    1323              ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
     1323             ELSEIF ( bc_lr_raddir  .OR. bc_lr_neudir )  THEN
    13241324                outflow_l = .TRUE.
    13251325             ENDIF
     
    13271327
    13281328          IF ( pright == MPI_PROC_NULL )  THEN
    1329              IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
     1329             IF ( bc_lr_dirrad  .OR. bc_lr_dirneu )  THEN
    13301330                outflow_r = .TRUE.
    1331              ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
     1331             ELSEIF ( bc_lr_raddir  .OR. bc_lr_neudir )  THEN
    13321332                inflow_r  = .TRUE.
    13331333             ENDIF
     
    13351335
    13361336          IF ( psouth == MPI_PROC_NULL )  THEN
    1337              IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
     1337             IF ( bc_ns_dirrad  .OR. bc_ns_dirneu )  THEN
    13381338                outflow_s = .TRUE.
    1339              ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
     1339             ELSEIF ( bc_ns_raddir  .OR. bc_ns_neudir )  THEN
    13401340                inflow_s  = .TRUE.
    13411341             ENDIF
     
    13431343
    13441344          IF ( pnorth == MPI_PROC_NULL )  THEN
    1345              IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
     1345             IF ( bc_ns_dirrad  .OR. bc_ns_dirneu )  THEN
    13461346                inflow_n  = .TRUE.
    1347              ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
     1347             ELSEIF ( bc_ns_raddir  .OR. bc_ns_neudir )  THEN
    13481348                outflow_n = .TRUE.
    13491349             ENDIF
Note: See TracChangeset for help on using the changeset viewer.