Changeset 4448 for palm/trunk
- Timestamp:
- Mar 9, 2020 9:29:12 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r4392 r4448 26 26 ! Former revisions: 27 27 ! ----------------- 28 ! 28 29 ! $Id$ 29 ! (resler) Make pcm_heatrate_av, pcm_latentrate_av public to allow calculation 30 ! (salim) removed the error message PA0672 to consider PC 3d data via ascii file 31 ! 32 ! 4392 2020-01-31 16:14:57Z pavelkrc (resler) 33 ! Make pcm_heatrate_av, pcm_latentrate_av public to allow calculation 30 34 ! of averaged Bowen ratio in the user procedure 31 35 ! … … 547 551 CALL message( 'pcm_check_parameters', 'PA0360', 1, 2, 0, 6, 0 ) 548 552 ENDIF 549 !550 !-- If canopy shall be read from file, static input file must be present551 IF ( TRIM( canopy_mode ) == 'read_from_file' .AND. &552 .NOT. input_pids_static ) THEN553 message_string = 'canopy_mode = read_from_file requires ' // &554 'static input file'555 CALL message( 'pcm_check_parameters', 'PA0672', 1, 2, 0, 6, 0 )556 ENDIF557 553 558 554 END SUBROUTINE pcm_check_parameters
Note: See TracChangeset
for help on using the changeset viewer.