Changeset 4843 for palm/trunk/SOURCE/land_surface_model_mod.f90
- Timestamp:
- Jan 15, 2021 3:22:11 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r4842 r4843 24 24 ! ----------------- 25 25 ! $Id$ 26 ! local namelist parameter added to switch off the module although the respective module namelist 27 ! appears in the namelist file 28 ! 29 ! 4842 2021-01-14 10:42:28Z raasch 26 30 ! reading of namelist file and actions in case of namelist errors revised so that statement labels 27 31 ! and goto statements are not required any more, … … 5004 5008 CHARACTER(LEN=100) :: line !< dummy string that contains the current line of the parameter 5005 5009 !< file 5010 5006 5011 INTEGER(iwp) :: io_status !< status after reading the nameslist file 5007 5012 5013 LOGICAL :: switch_off_module = .FALSE. !< local namelist parameter to switch off the module 5014 !< although the respective module namelist appears in 5015 !< the namelist file 5008 5016 5009 5017 NAMELIST /land_surface_parameters/ aero_resist_kray, & … … 5037 5045 soil_type, & 5038 5046 surface_type, & 5047 switch_off_module, & 5039 5048 vegetation_coverage, & 5040 5049 vegetation_type, & … … 5063 5072 !-- land_surface_parameters namelist was found and read correctly. Set flag that indicates that 5064 5073 !-- the land surface model is switched on. 5065 land_surface = .TRUE.5074 IF ( .NOT. switch_off_module ) land_surface = .TRUE. 5066 5075 5067 5076 ELSEIF ( io_status > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.