Changeset 2766 for palm/trunk/SOURCE/swap_timelevel.f90
- Timestamp:
- Jan 22, 2018 5:17:47 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/swap_timelevel.f90
r2718 r2766 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Removed preprocessor directive __chem 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 130 133 #endif 131 134 132 #if defined( __chem )133 135 USE chemistry_model_mod, & 134 136 ONLY: chem_swap_timelevel 135 #endif136 137 137 138 USE land_surface_model_mod, & … … 246 247 ENDIF 247 248 248 #if defined( __chem )249 249 IF ( air_chemistry ) CALL chem_swap_timelevel(0) 250 #endif251 250 252 251 swap_level = 1 … … 278 277 ENDIF 279 278 280 #if defined( __chem )281 279 IF ( air_chemistry ) CALL chem_swap_timelevel(1) 282 #endif283 280 284 281 swap_level = 2
Note: See TracChangeset
for help on using the changeset viewer.