Changeset 1555 for palm/trunk/SOURCE/land_surface_model.f90

Timestamp:

Mar 4, 2015 5:44:27 PM (9 years ago)

Author:

maronga

Message:

LSM output of r_a and r_s added

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added output of r_a and r_s
 ! 
 ! Former revisions:
@@ -236 +236 @@
               qsws_veg_eb_av,   & !: average of qsws_veg_eb
               r_a,              & !: aerodynamic resistance 
+              r_a_av,           & !: avergae of r_a
               r_canopy,         & !: canopy resistance
               r_soil,           & !: soil resitance
               r_soil_min,       & !: minimum soil resistance
-              r_s,              & !: total surface resistance (combination of r_soil and r_canopy)          
+              r_s,              & !: total surface resistance (combination of r_soil and r_canopy)
+              r_s_av,           & !: avergae of r_s
               r_canopy_min,     & !: minimum canopy (stomatal) resistance
               shf_eb,           & !: surface flux of sensible heat
@@ -474 +476 @@
            lai, lai_av, qsws_eb, qsws_eb_av, qsws_liq_eb, qsws_liq_eb_av,      &
            qsws_soil_eb, qsws_soil_eb_av, qsws_veg_eb, qsws_veg_eb_av,         &
-           shf_eb, shf_eb_av
+           r_a, r_a_av, r_s, r_s_av, shf_eb, shf_eb_av
 
 
@@ -888 +890 @@
        dots_unit(dots_num+1:dots_num+6) = "W/m2"
 
+       dots_label(dots_num+7) = "r_a"
+       dots_label(dots_num+8) = "r_s"
+       dots_unit(dots_num+7:dots_num+8) = "s/m"
+
        dots_soil = dots_num + 1
-       dots_num  = dots_num + 6
+       dots_num  = dots_num + 8