Changeset 996 for palm/trunk/SOURCE/poismg.f90
 Timestamp:
 Sep 7, 2012 10:41:47 AM (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/poismg.f90
r979 r996 7 7 ! Current revisions: 8 8 !  9 ! 9 ! little reformatting 10 10 ! 11 11 ! Former revisions: … … 1232 1232 ! outflow conditions have to be used on all PEs after the switch, 1233 1233 ! because then they have the total domain. 1234 IF ( bc_lr_dirrad .OR.bc_lr_dirneu ) THEN1234 IF ( bc_lr_dirrad .OR. bc_lr_dirneu ) THEN 1235 1235 inflow_l = .TRUE. 1236 1236 inflow_r = .FALSE. 1237 1237 outflow_l = .FALSE. 1238 1238 outflow_r = .TRUE. 1239 ELSEIF ( bc_lr_raddir .OR.bc_lr_neudir ) THEN1239 ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir ) THEN 1240 1240 inflow_l = .FALSE. 1241 1241 inflow_r = .TRUE. … … 1244 1244 ENDIF 1245 1245 1246 IF ( bc_ns_dirrad .OR.bc_ns_dirneu ) THEN1246 IF ( bc_ns_dirrad .OR. bc_ns_dirneu ) THEN 1247 1247 inflow_n = .TRUE. 1248 1248 inflow_s = .FALSE. 1249 1249 outflow_n = .FALSE. 1250 1250 outflow_s = .TRUE. 1251 ELSEIF ( bc_ns_raddir .OR.bc_ns_neudir ) THEN1251 ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir ) THEN 1252 1252 inflow_n = .FALSE. 1253 1253 inflow_s = .TRUE. … … 1319 1319 1320 1320 IF ( pleft == MPI_PROC_NULL ) THEN 1321 IF ( bc_lr_dirrad .OR.bc_lr_dirneu ) THEN1321 IF ( bc_lr_dirrad .OR. bc_lr_dirneu ) THEN 1322 1322 inflow_l = .TRUE. 1323 ELSEIF ( bc_lr_raddir .OR.bc_lr_neudir ) THEN1323 ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir ) THEN 1324 1324 outflow_l = .TRUE. 1325 1325 ENDIF … … 1327 1327 1328 1328 IF ( pright == MPI_PROC_NULL ) THEN 1329 IF ( bc_lr_dirrad .OR.bc_lr_dirneu ) THEN1329 IF ( bc_lr_dirrad .OR. bc_lr_dirneu ) THEN 1330 1330 outflow_r = .TRUE. 1331 ELSEIF ( bc_lr_raddir .OR.bc_lr_neudir ) THEN1331 ELSEIF ( bc_lr_raddir .OR. bc_lr_neudir ) THEN 1332 1332 inflow_r = .TRUE. 1333 1333 ENDIF … … 1335 1335 1336 1336 IF ( psouth == MPI_PROC_NULL ) THEN 1337 IF ( bc_ns_dirrad .OR.bc_ns_dirneu ) THEN1337 IF ( bc_ns_dirrad .OR. bc_ns_dirneu ) THEN 1338 1338 outflow_s = .TRUE. 1339 ELSEIF ( bc_ns_raddir .OR.bc_ns_neudir ) THEN1339 ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir ) THEN 1340 1340 inflow_s = .TRUE. 1341 1341 ENDIF … … 1343 1343 1344 1344 IF ( pnorth == MPI_PROC_NULL ) THEN 1345 IF ( bc_ns_dirrad .OR.bc_ns_dirneu ) THEN1345 IF ( bc_ns_dirrad .OR. bc_ns_dirneu ) THEN 1346 1346 inflow_n = .TRUE. 1347 ELSEIF ( bc_ns_raddir .OR.bc_ns_neudir ) THEN1347 ELSEIF ( bc_ns_raddir .OR. bc_ns_neudir ) THEN 1348 1348 outflow_n = .TRUE. 1349 1349 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.