Changeset 724 for palm/tags/release3.8/SOURCE/init_pegrid.f90
 Timestamp:
 Apr 11, 2011 6:42:09 AM (13 years ago)
 Location:
 palm/tags/release3.8
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

palm/tags/release3.8
 Property svn:mergeinfo changed
/palm/trunk (added) merged: 722723
 Property svn:mergeinfo changed

palm/tags/release3.8/SOURCE
 Property svn:mergeinfo changed
/palm/trunk/SOURCE (added) merged: 722723
 Property svn:mergeinfo changed

palm/tags/release3.8/SOURCE/init_pegrid.f90
r710 r724 12 12 !  13 13 ! $Id$ 14 ! 15 ! 722 20110411 06:21:09Z raasch 16 ! Bugfix: bc_lr/ns_cyc/dirrad/raddir replaced by bc_lr/ns, because variables 17 ! are not yet set here; grid_level set to 0 14 18 ! 15 19 ! 709 20110330 09:31:40Z raasch … … 193 197 ! 194 198 ! If necessary, set horizontal boundary conditions to noncyclic 195 IF ( .NOT. bc_lr_cyc) cyclic(1) = .FALSE.196 IF ( .NOT. bc_ns_cyc) cyclic(2) = .FALSE.199 IF ( bc_lr /= 'cyclic' ) cyclic(1) = .FALSE. 200 IF ( bc_ns /= 'cyclic' ) cyclic(2) = .FALSE. 197 201 198 202 ! … … 977 981 ENDIF 978 982 979 grid_level = maximum_grid_level 983 ! 984 ! Default level 0 tells exchange_horiz that all ghost planes have to be 985 ! exchanged. grid_level is adjusted in poismg, where only one ghost plane 986 ! is required. 987 grid_level = 0 980 988 981 989 #if defined( __parallel ) … … 1067 1075 ! horizontal boundary conditions. 1068 1076 IF ( pleft == MPI_PROC_NULL ) THEN 1069 IF ( bc_lr _dirrad) THEN1077 IF ( bc_lr == 'dirichlet/radiation' ) THEN 1070 1078 inflow_l = .TRUE. 1071 ELSEIF ( bc_lr _raddir) THEN1079 ELSEIF ( bc_lr == 'radiation/dirichlet' ) THEN 1072 1080 outflow_l = .TRUE. 1073 1081 ENDIF … … 1075 1083 1076 1084 IF ( pright == MPI_PROC_NULL ) THEN 1077 IF ( bc_lr _dirrad) THEN1085 IF ( bc_lr == 'dirichlet/radiation' ) THEN 1078 1086 outflow_r = .TRUE. 1079 ELSEIF ( bc_lr _raddir) THEN1087 ELSEIF ( bc_lr == 'radiation/dirichlet' ) THEN 1080 1088 inflow_r = .TRUE. 1081 1089 ENDIF … … 1083 1091 1084 1092 IF ( psouth == MPI_PROC_NULL ) THEN 1085 IF ( bc_ns _dirrad) THEN1093 IF ( bc_ns == 'dirichlet/radiation' ) THEN 1086 1094 outflow_s = .TRUE. 1087 ELSEIF ( bc_ns _raddir) THEN1095 ELSEIF ( bc_ns == 'radiation/dirichlet' ) THEN 1088 1096 inflow_s = .TRUE. 1089 1097 ENDIF … … 1091 1099 1092 1100 IF ( pnorth == MPI_PROC_NULL ) THEN 1093 IF ( bc_ns _dirrad) THEN1101 IF ( bc_ns == 'dirichlet/radiation' ) THEN 1094 1102 inflow_n = .TRUE. 1095 ELSEIF ( bc_ns _raddir) THEN1103 ELSEIF ( bc_ns == 'radiation/dirichlet' ) THEN 1096 1104 outflow_n = .TRUE. 1097 1105 ENDIF … … 1123 1131 1124 1132 #else 1125 IF ( bc_lr _dirrad) THEN1133 IF ( bc_lr == 'dirichlet/radiation' ) THEN 1126 1134 inflow_l = .TRUE. 1127 1135 outflow_r = .TRUE. 1128 ELSEIF ( bc_lr _raddir) THEN1136 ELSEIF ( bc_lr == 'radiation/dirichlet' ) THEN 1129 1137 outflow_l = .TRUE. 1130 1138 inflow_r = .TRUE. 1131 1139 ENDIF 1132 1140 1133 IF ( bc_ns _dirrad) THEN1141 IF ( bc_ns == 'dirichlet/radiation' ) THEN 1134 1142 inflow_n = .TRUE. 1135 1143 outflow_s = .TRUE. 1136 ELSEIF ( bc_ns _raddir) THEN1144 ELSEIF ( bc_ns == 'radiation/dirichlet' ) THEN 1137 1145 outflow_n = .TRUE. 1138 1146 inflow_s = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.