Changeset 2209 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Apr 19, 2017 9:34:46 AM (7 years ago)

Author:

kanani

Message:

small bugfix, formatting and new PCM output

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Check for plant canopy model output
 ! 
 ! Former revisions:
@@ -476 +476 @@
     USE pegrid
     USE plant_canopy_model_mod,                                                &
-        ONLY:  pcm_check_parameters, plant_canopy
+        ONLY:  pcm_check_data_output, pcm_check_parameters, plant_canopy
         
     USE pmc_interface,                                                         &
@@ -3213 +3213 @@
              ENDIF
 
+!
+!--          Block of plant canopy model outputs
+             IF ( unit == 'illegal' .AND. plant_canopy .AND. var(1:4) == 'pcm_' ) THEN
+                 CALL pcm_check_data_output( var, unit )
+             ENDIF
+             
              IF ( unit == 'illegal' )  THEN
                 unit = ''