Changeset 2209 for palm/trunk/SOURCE/data_output_3d.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/data_output_3d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added plant canopy model output
 ! 
 ! Former revisions:
@@ -188 +188 @@
     USE pegrid
 
+    USE plant_canopy_model_mod,                                                &
+        ONLY:  pcm_data_output_3d, plant_canopy
+        
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_data_output_3d
@@ -620 +623 @@
              IF ( .NOT. found  .AND.  radiation )  THEN
                 CALL radiation_data_output_3d( av, do3d(av,if), found,         &
+                                               local_pf )
+                resorted = .TRUE.
+             ENDIF
+
+!
+!--          Plant canopy model output
+             IF ( .NOT. found  .AND.  plant_canopy )  THEN
+                CALL pcm_data_output_3d( av, do3d(av,if), found,         &
                                                local_pf )
                 resorted = .TRUE.