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

Timestamp:

Jun 2, 2007 4:48:38 PM (17 years ago)

Author:

raasch

Message:

further 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
+! +sa, saswsb, saswst
 !
 ! Former revisions:
@@ -284 +284 @@
           CASE ( 'sa' )
              READ ( 13 )  sa
+          CASE ( 'saswsb' )
+             READ ( 13 )  saswsb
           CASE ( 'saswst' )
              READ ( 13 )  saswst