Changeset 707 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r690 r707 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! setting of bc_lr/ns_dirrad/raddir 6 7 ! 7 8 ! Former revisions: … … 1253 1254 ! 1254 1255 !-- Internal variables used for speed optimization in if clauses 1255 IF ( bc_lr /= 'cyclic' ) bc_lr_cyc = .FALSE. 1256 IF ( bc_ns /= 'cyclic' ) bc_ns_cyc = .FALSE. 1256 IF ( bc_lr /= 'cyclic' ) bc_lr_cyc = .FALSE. 1257 IF ( bc_lr == 'dirichlet/radiation' ) bc_lr_dirrad = .TRUE. 1258 IF ( bc_lr == 'radiation/dirichlet' ) bc_lr_raddir = .TRUE. 1259 IF ( bc_ns /= 'cyclic' ) bc_ns_cyc = .FALSE. 1260 IF ( bc_ns == 'dirichlet/radiation' ) bc_ns_dirrad = .TRUE. 1261 IF ( bc_ns == 'radiation/dirichlet' ) bc_ns_raddir = .TRUE. 1257 1262 1258 1263 !
Note: See TracChangeset
for help on using the changeset viewer.