Changeset 996 for palm/trunk/SOURCE/poismg.f90

Timestamp:

Sep 7, 2012 10:41:47 AM (12 years ago)

Author:

raasch

Message:

parameter use_prior_plot1d_parameters removed; little reformatting

File:

• palm/trunk/SOURCE/poismg.f90 (modified) (7 diffs)

palm/trunk/SOURCE/poismg.f90

@@ -7 +7 @@
 ! Current revisions:
 ! -----------------
-!
+! little reformatting
 !
 ! Former revisions:
@@ -1232 +1232 @@
 !--       outflow conditions have to be used on all PEs after the switch,
 !--       because then they have the total domain.
-          IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
+          IF ( bc_lr_dirrad  .OR.  bc_lr_dirneu )  THEN
              inflow_l  = .TRUE.
              inflow_r  = .FALSE.
              outflow_l = .FALSE.
              outflow_r = .TRUE.
-          ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
+          ELSEIF ( bc_lr_raddir  .OR.  bc_lr_neudir )  THEN
              inflow_l  = .FALSE.
              inflow_r  = .TRUE.
@@ -1244 +1244 @@
           ENDIF
 
-          IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
+          IF ( bc_ns_dirrad  .OR.  bc_ns_dirneu )  THEN
              inflow_n  = .TRUE.
              inflow_s  = .FALSE.
              outflow_n = .FALSE.
              outflow_s = .TRUE.
-          ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
+          ELSEIF ( bc_ns_raddir  .OR.  bc_ns_neudir )  THEN
              inflow_n  = .FALSE.
              inflow_s  = .TRUE.
@@ -1319 +1319 @@
 
           IF ( pleft == MPI_PROC_NULL )  THEN
-             IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
+             IF ( bc_lr_dirrad  .OR.  bc_lr_dirneu )  THEN
                 inflow_l  = .TRUE.
-             ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
+             ELSEIF ( bc_lr_raddir  .OR.  bc_lr_neudir )  THEN
                 outflow_l = .TRUE.
              ENDIF
@@ -1327 +1327 @@
 
           IF ( pright == MPI_PROC_NULL )  THEN
-             IF ( bc_lr_dirrad .OR. bc_lr_dirneu )  THEN
+             IF ( bc_lr_dirrad  .OR.  bc_lr_dirneu )  THEN
                 outflow_r = .TRUE.
-             ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir )  THEN
+             ELSEIF ( bc_lr_raddir  .OR.  bc_lr_neudir )  THEN
                 inflow_r  = .TRUE.
              ENDIF
@@ -1335 +1335 @@
 
           IF ( psouth == MPI_PROC_NULL )  THEN
-             IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
+             IF ( bc_ns_dirrad  .OR.  bc_ns_dirneu )  THEN
                 outflow_s = .TRUE.
-             ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
+             ELSEIF ( bc_ns_raddir  .OR.  bc_ns_neudir )  THEN
                 inflow_s  = .TRUE.
              ENDIF
@@ -1343 +1343 @@
 
           IF ( pnorth == MPI_PROC_NULL )  THEN
-             IF ( bc_ns_dirrad .OR. bc_ns_dirneu )  THEN
+             IF ( bc_ns_dirrad  .OR.  bc_ns_dirneu )  THEN
                 inflow_n  = .TRUE.
-             ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir )  THEN
+             ELSEIF ( bc_ns_raddir  .OR.  bc_ns_neudir )  THEN
                 outflow_n = .TRUE.
              ENDIF