Changeset 96 for palm/trunk/SOURCE/write_3d_binary.f90

Timestamp:

Jun 4, 2007 8:07:41 AM (17 years ago)

Author:

raasch

Message:

more preliminary uncomplete changes for ocean version

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! +sa, saswsb, saswst
+! +rho_av, sa, sa_av, saswsb, saswst
 !
 ! Former revisions:
@@ -133 +133 @@
     ENDIF
     IF ( ocean )  THEN
+       IF ( ALLOCATED( rho_av ) )  THEN
+          WRITE ( 14 )  'rho_av              ';  WRITE ( 14 )  rho_av
+       ENDIF
        WRITE ( 14 )  'sa                  ';  WRITE ( 14 )  sa
+       IF ( ALLOCATED( sa_av ) )  THEN
+          WRITE ( 14 )  'sa_av               ';  WRITE ( 14 )  sa_av
+       ENDIF
        WRITE ( 14 )  'saswsb              ';  WRITE ( 14 )  saswsb
        WRITE ( 14 )  'saswst              ';  WRITE ( 14 )  saswst