Changeset 19 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Feb 23, 2007 4:53:48 AM (17 years ago)

Author:

raasch

Message:

preliminary version of modified boundary conditions at top

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +qswst, qswst_m, tswst, tswst_m
 !
 ! Former revisions:
@@ -249 +249 @@
           CASE ( 'qsws_m' )
              READ ( 13 )  qsws_m
+          CASE ( 'qswst' )
+             READ ( 13 )  qswst
+          CASE ( 'qswst_m' )
+             READ ( 13 )  qswst_m
           CASE ( 'qv_av' )
              ALLOCATE( qv_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
@@ -266 +270 @@
           CASE ( 'shf_m' )
              READ ( 13 )  shf_m
+          CASE ( 'tswst' )
+             READ ( 13 )  tswst
+          CASE ( 'tswst_m' )
+             READ ( 13 )  tswst_m
           CASE ( 'spectrum_x' )
              READ ( 13 )  spectrum_x