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

Timestamp:

Jun 1, 2007 3:25:22 PM (17 years ago)

Author:

raasch

Message:

preliminary uncomplete changes for ocean version

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +sa, saswst
 !
 ! Former revisions:
@@ -282 +282 @@
              ALLOCATE( s_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
              READ ( 13 )  s_av
+          CASE ( 'sa' )
+             READ ( 13 )  sa
+          CASE ( 'saswst' )
+             READ ( 13 )  saswst
           CASE ( 'shf' )
              READ ( 13 )  shf