Changeset 102 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Jul 27, 2007 9:09:17 AM (17 years ago)

Author:

raasch

Message:

preliminary version for coupled runs

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +time_coupling, top_momentumflux_u|v
 !
 ! Former revisions:
@@ -358 +358 @@
           CASE ( 's_vertical_gradient_level' )
              READ ( 13 )  s_vertical_gradient_level
+          CASE ( 'time_coupling' )
+             READ ( 13 )  time_coupling
           CASE ( 'time_disturb' )
              READ ( 13 )  time_disturb
@@ -396 +398 @@
           CASE ( 'top_heatflux' )
              READ ( 13 )  top_heatflux
+          CASE ( 'top_momentumflux_u' )
+             READ ( 13 )  top_momentumflux_u
+          CASE ( 'top_momentumflux_v' )
+             READ ( 13 )  top_momentumflux_v
           CASE ( 'top_salinityflux' )
              READ ( 13 )  top_salinityflux