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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added support for plant canopy model output
 ! 
 ! Former revisions:
@@ -461 +461 @@
         ONLY:  maximum_number_of_particles, number_of_particle_groups
 
+    USE plant_canopy_model_mod,                                                &
+        ONLY:  pcm_define_netcdf_grid, plant_canopy
+
     USE profil_parameter,                                                      &
         ONLY:  crmax, cross_profiles, dopr_index, profile_columns, profile_rows
@@ -839 +842 @@
                                                    grid_x, grid_y, grid_z )
                    ENDIF
+                   
+!
+!--                Check for plant canopy quantities
+                   IF ( plant_canopy )  THEN
+                      CALL pcm_define_netcdf_grid( domask(mid,av,i), found,    &
+                                                   grid_x, grid_y, grid_z )
+                   ENDIF
 
 !
@@ -1361 +1371 @@
                    ENDIF
 
+!
+!--                Check for plant canopy quantities
+                   IF ( plant_canopy )  THEN
+                      CALL pcm_define_netcdf_grid( do3d(av,i), found, grid_x,  &
+                                                   grid_y, grid_z )
+                   ENDIF
+                   
 !
 !--                Check for radiation quantities