Changeset 1179 for palm/trunk/SOURCE/header.f90

Timestamp:

Jun 14, 2013 5:57:58 AM (11 years ago)

Author:

raasch

Message:

New:
---
Initial profiles can be used as reference state in the buoyancy term. New parameter
reference_state introduced. Calculation and handling of reference state in buoyancy term revised.
binary version for restart files changed from 3.9 to 3.9a (no downward compatibility!),
initial profile for rho added to hom (id=77)

Errors:

---

small bugfix for background communication (time_integration)

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! output of reference_state, use_reference renamed use_single_reference_value
 !
 ! Former revisions:
@@ -1230 +1230 @@
 !-- Other quantities
     WRITE ( io, 411 )  g
-    IF ( use_reference )  THEN
+    WRITE ( io, 412 )  TRIM( reference_state )
+    IF ( use_single_reference_value )  THEN
        IF ( ocean )  THEN
-          WRITE ( io, 412 )  prho_reference
-       ELSE
-          WRITE ( io, 413 )  pt_reference
+          WRITE ( io, 413 )  prho_reference
+       ELSE
+          WRITE ( io, 414 )  pt_reference
        ENDIF
     ENDIF
@@ -1900 +1901 @@
             '                            f*    = ',F9.6,' 1/s')
 411 FORMAT (/'    Gravity             :   g     = ',F4.1,' m/s**2')
-412 FORMAT (/'    Reference density in buoyancy terms: ',F8.3,' kg/m**3')
-413 FORMAT (/'    Reference temperature in buoyancy terms: ',F8.4,' K')
+412 FORMAT (/'    Reference state used in buoyancy terms: ',A)
+413 FORMAT ('       Reference density in buoyancy terms: ',F8.3,' kg/m**3')
+414 FORMAT ('       Reference temperature in buoyancy terms: ',F8.4,' K')
 415 FORMAT (/'    Cloud physics parameters:'/ &
              '    ------------------------'/)