Changeset 102 for palm/trunk/SOURCE/read_3d_binary.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_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +uswst, uswst_m, vswst, vswst_m
 !
 ! Former revisions:
@@ -333 +333 @@
           CASE ( 'usws' )
              READ ( 13 )  usws
+          CASE ( 'uswst' )
+             READ ( 13 )  uswst
           CASE ( 'usws_m' )
              READ ( 13 )  usws_m
+          CASE ( 'uswst_m' )
+             READ ( 13 )  uswst_m
           CASE ( 'us_av' )
              ALLOCATE( us_av(nys-1:nyn+1,nxl-1:nxr+1) )
@@ -366 +370 @@
           CASE ( 'vsws' )
              READ ( 13 )  vsws
+          CASE ( 'vswst' )
+             READ ( 13 )  vswst
           CASE ( 'vsws_m' )
              READ ( 13 )  vsws_m
+          CASE ( 'vswst_m' )
+             READ ( 13 )  vswst_m
           CASE ( 'w' )
              READ ( 13 )  w