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

palm/trunk/SOURCE/data_output_3d.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Output of density and salinity
 !
 ! Former revisions:
@@ -251 +251 @@
              ENDIF
 
+          CASE ( 'rho' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rho
+             ELSE
+                to_be_resorted => rho_av
+             ENDIF
+             
           CASE ( 's' )
              IF ( av == 0 )  THEN
@@ -256 +263 @@
              ELSE
                 to_be_resorted => q_av
+             ENDIF
+             
+          CASE ( 'sa' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => sa
+             ELSE
+                to_be_resorted => sa_av
              ENDIF