Changeset 2338 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Aug 7, 2017 12:15:38 PM (7 years ago)

Author:

gronemeier

Message:

modularized 1d model

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularize 1D model
+! 
+! 
 ! New function to obtain topography top index. 
 ! 
@@ -71 +74 @@
     USE kinds
 
-    USE model_1d,                                                              &
+    USE model_1d_mod,                                                          &
         ONLY:  rif1d, us1d, usws1d, vsws1d
-       
+
 
     IMPLICIT NONE