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

palm/trunk/SOURCE/ocean_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implementation of downward facing USM and LSM surfaces
+! 
+! 4535 2020-05-15 12:07:23Z raasch
 ! bugfix for restart data format query
 ! 
@@ -1683 +1686 @@
                          surf_def_h(0)%sasws, surf_def_h(1)%sasws,             &
                          surf_def_h(2)%sasws,                                  &
-                         surf_lsm_h%sasws,    surf_usm_h%sasws,                &
+                         surf_lsm_h(0)%sasws, surf_lsm_h(1)%sasws,             &
+                         surf_usm_h(0)%sasws, surf_usm_h(1)%sasws,             &
                          surf_def_v(0)%sasws, surf_def_v(1)%sasws,             &
                          surf_def_v(2)%sasws, surf_def_v(3)%sasws,             &
@@ -1833 +1837 @@
                          surf_def_h(0)%sasws, surf_def_h(1)%sasws,             &
                          surf_def_h(2)%sasws,                                  &
-                         surf_lsm_h%sasws,    surf_usm_h%sasws,                &
+                         surf_lsm_h(0)%sasws, surf_lsm_h(1)%sasws,             &
+                         surf_usm_h(0)%sasws, surf_usm_h(1)%sasws,             &
                          surf_def_v(0)%sasws, surf_def_v(1)%sasws,             &
                          surf_def_v(2)%sasws, surf_def_v(3)%sasws,             &