Changeset 686
- Timestamp:
- Feb 20, 2011 1:45:08 PM (14 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r685 r686 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 7 ! bugfix: Replaced "==" by ".EQ." in case of logical expression 6 8 ! 7 9 ! Former revisions: … … 566 568 567 569 IF( momentum_advec == 'ws-scheme' .AND. & 568 call_psolver_at_all_substeps ==.FALSE. ) THEN570 call_psolver_at_all_substeps .EQ. .FALSE. ) THEN 569 571 message_string = 'psolver must be called at each RK3 substep when "'//& 570 572 TRIM(momentum_advec) // ' "is used for momentum_advec' -
palm/trunk/SOURCE/exchange_horiz.f90
r684 r686 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! 7 ! bugfix: Replaced "==" by ".EQ." in case of logical expression 7 8 ! 8 9 ! Former revisions: … … 62 63 !-- Set i appropriately, because the coarser grids have different 63 64 !-- MPI datatypes type_xz, type_yz. 64 IF ( exchange_mg ==.TRUE. ) THEN65 IF ( exchange_mg .EQ. .TRUE. ) THEN 65 66 i = grid_level 66 67 ELSE
Note: See TracChangeset
for help on using the changeset viewer.