Changeset 707 for palm/trunk/SOURCE/init_pegrid.f90
 Timestamp:
 Mar 29, 2011 11:39:40 AM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/init_pegrid.f90
r669 r707 4 4 ! Current revisions: 5 5 !  6 ! bc_lr/ns replaced by bc_lr/ns_cyc/dirrad/raddir 6 7 ! 7 8 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!! … … 186 187 ! 187 188 ! If necessary, set horizontal boundary conditions to noncyclic 188 IF ( bc_lr /= 'cyclic') cyclic(1) = .FALSE.189 IF ( bc_ns /= 'cyclic') cyclic(2) = .FALSE.189 IF ( .NOT. bc_lr_cyc ) cyclic(1) = .FALSE. 190 IF ( .NOT. bc_ns_cyc ) cyclic(2) = .FALSE. 190 191 191 192 ! … … 331 332 nzt = MIN( nz, nzta ) 332 333 nnz = nza 334 335 ! 336 ! Set switches to define if the PE is situated at the border of the virtual 337 ! processor grid 338 IF ( nxl == 0 ) left_border_pe = .TRUE. 339 IF ( nxr == nx ) right_border_pe = .TRUE. 340 IF ( nys == 0 ) south_border_pe = .TRUE. 341 IF ( nyn == ny ) north_border_pe = .TRUE. 333 342 334 343 ! … … 1066 1075 ! horizontal boundary conditions. 1067 1076 IF ( pleft == MPI_PROC_NULL ) THEN 1068 IF ( bc_lr == 'dirichlet/radiation') THEN1077 IF ( bc_lr_dirrad ) THEN 1069 1078 inflow_l = .TRUE. 1070 ELSEIF ( bc_lr == 'radiation/dirichlet') THEN1079 ELSEIF ( bc_lr_raddir ) THEN 1071 1080 outflow_l = .TRUE. 1072 1081 ENDIF … … 1074 1083 1075 1084 IF ( pright == MPI_PROC_NULL ) THEN 1076 IF ( bc_lr == 'dirichlet/radiation') THEN1085 IF ( bc_lr_dirrad ) THEN 1077 1086 outflow_r = .TRUE. 1078 ELSEIF ( bc_lr == 'radiation/dirichlet') THEN1087 ELSEIF ( bc_lr_raddir ) THEN 1079 1088 inflow_r = .TRUE. 1080 1089 ENDIF … … 1082 1091 1083 1092 IF ( psouth == MPI_PROC_NULL ) THEN 1084 IF ( bc_ns == 'dirichlet/radiation') THEN1093 IF ( bc_ns_dirrad ) THEN 1085 1094 outflow_s = .TRUE. 1086 ELSEIF ( bc_ns == 'radiation/dirichlet') THEN1095 ELSEIF ( bc_ns_raddir ) THEN 1087 1096 inflow_s = .TRUE. 1088 1097 ENDIF … … 1090 1099 1091 1100 IF ( pnorth == MPI_PROC_NULL ) THEN 1092 IF ( bc_ns == 'dirichlet/radiation') THEN1101 IF ( bc_ns_dirrad ) THEN 1093 1102 inflow_n = .TRUE. 1094 ELSEIF ( bc_ns == 'radiation/dirichlet') THEN1103 ELSEIF ( bc_ns_raddir ) THEN 1095 1104 outflow_n = .TRUE. 1096 1105 ENDIF … … 1122 1131 1123 1132 #else 1124 IF ( bc_lr == 'dirichlet/radiation') THEN1133 IF ( bc_lr_dirrad ) THEN 1125 1134 inflow_l = .TRUE. 1126 1135 outflow_r = .TRUE. 1127 ELSEIF ( bc_lr == 'radiation/dirichlet') THEN1136 ELSEIF ( bc_lr_raddir ) THEN 1128 1137 outflow_l = .TRUE. 1129 1138 inflow_r = .TRUE. 1130 1139 ENDIF 1131 1140 1132 IF ( bc_ns == 'dirichlet/radiation') THEN1141 IF ( bc_ns_dirrad ) THEN 1133 1142 inflow_n = .TRUE. 1134 1143 outflow_s = .TRUE. 1135 ELSEIF ( bc_ns == 'radiation/dirichlet') THEN1144 ELSEIF ( bc_ns_raddir ) THEN 1136 1145 outflow_n = .TRUE. 1137 1146 inflow_s = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.