Changeset 4671 for palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

Timestamp:

Sep 9, 2020 8:27:58 PM (4 years ago)

Author:

pavelkrc

Message:

Radiative transfer model RTM version 4.1

File:

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

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implementation of downward facing USM and LSM surfaces
+! 
+! 4583 2020-06-29 12:36:47Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -1693 +1696 @@
              surf => surf_def_h(0)
              CALL calc_pt_2m
-             surf => surf_lsm_h
+             surf => surf_lsm_h(0)
              CALL calc_pt_2m
-             surf => surf_usm_h
+             surf => surf_usm_h(0)
              CALL calc_pt_2m
 !
@@ -1707 +1710 @@
              surf => surf_def_h(0)
              CALL calc_wind_10m
-             surf => surf_lsm_h
+             surf => surf_lsm_h(0)
              CALL calc_wind_10m
-             surf => surf_usm_h
+             surf => surf_usm_h(0)
              CALL calc_wind_10m
 !