Changeset 20 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Feb 26, 2007 12:12:32 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r19 r20 806 806 ENDIF 807 807 808 IF ( surface_heatflux == 9999999.9 ) constant_heatflux = .FALSE. 809 IF ( top_heatflux == 9999999.9 ) THEN 810 constant_top_heatflux = .FALSE. 811 ELSE 812 use_top_fluxes = .TRUE. ! because this is currently the only choice 813 ENDIF 808 IF ( surface_heatflux == 9999999.9 ) constant_heatflux = .FALSE. 809 IF ( top_heatflux == 9999999.9 ) constant_top_heatflux = .FALSE. 814 810 815 811 !
Note: See TracChangeset
for help on using the changeset viewer.