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

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/header.f90

@@ -5 +5 @@
 ! -----------------
 ! Output of netcdf_64bit_3d, particles-package is now part of the default code,
-! output of the loop optimization method.
+! output of the loop optimization method, moisture renamed humidity,
+! output of subversion revision number
 !
 ! Former revisions:
@@ -52 +53 @@
     CHARACTER (LEN=10) ::  coor_chr, host_chr
     CHARACTER (LEN=16) ::  begin_chr
+    CHARACTER (LEN=21) ::  ver_rev
     CHARACTER (LEN=40) ::  output_format
     CHARACTER (LEN=70) ::  char1, char2, coordinates, gradients, dopr_chr, &
@@ -95 +97 @@
 !-- Run-identification, date, time, host
     host_chr = host(1:10)
-    WRITE ( io, 100 )  version, TRIM( run_classification ), run_date, &
+    ver_rev = TRIM( version ) // '  ' // TRIM( revision )
+    WRITE ( io, 100 )  ver_rev, TRIM( run_classification ), run_date, &
                        run_identifier, run_time, runnr, ADJUSTR( host_chr )
 #if defined( __parallel )
@@ -217 +220 @@
        WRITE ( io, 123 )  rayleigh_damping_height, rayleigh_damping_factor
     ENDIF
-    IF ( moisture )  THEN
+    IF ( humidity )  THEN
        IF ( .NOT. cloud_physics )  THEN
           WRITE ( io, 129 )
@@ -370 +373 @@
     ENDIF
 
-    IF ( moisture  .OR.  passive_scalar )  THEN
-       IF ( moisture )  THEN
+    IF ( humidity  .OR.  passive_scalar )  THEN
+       IF ( humidity )  THEN
           IF ( ibc_q_b == 0 )  THEN
              runten = 'q(0)     = q_surface'
@@ -405 +408 @@
           IF ( random_heatflux )  WRITE ( io, 307 )
        ENDIF
-       IF ( moisture  .AND.  constant_waterflux )  THEN
+       IF ( humidity  .AND.  constant_waterflux )  THEN
           WRITE ( io, 311 ) surface_waterflux
        ENDIF
@@ -418 +421 @@
           WRITE ( io, 306 )  top_heatflux
        ENDIF
-       IF ( moisture  .OR.  passive_scalar )  THEN
+       IF ( humidity  .OR.  passive_scalar )  THEN
           WRITE ( io, 315 )
        ENDIF
@@ -426 +429 @@
        WRITE ( io, 305 )  zu(1), roughness_length, kappa, rif_min, rif_max
        IF ( .NOT. constant_heatflux )  WRITE ( io, 308 )
-       IF ( moisture  .AND.  .NOT. constant_waterflux )  THEN
+       IF ( humidity  .AND.  .NOT. constant_waterflux )  THEN
           WRITE ( io, 312 )
        ENDIF
@@ -955 +958 @@
 !-- Initial humidity profile
 !-- Building output strings, starting with surface humidity
-    IF ( moisture  .OR.  passive_scalar )  THEN
+    IF ( humidity  .OR.  passive_scalar )  THEN
        WRITE ( temperatures, '(E8.1)' )  q_surface
        gradients = '--------'
@@ -978 +981 @@
        ENDDO
 
-       IF ( moisture )  THEN
+       IF ( humidity )  THEN
           WRITE ( io, 421 )  TRIM( coordinates ), TRIM( temperatures ), &
                              TRIM( gradients ), TRIM( slices )
@@ -1021 +1024 @@
        WRITE ( io, 475 )  pt_surface_initial_change
     ENDIF
-    IF ( moisture  .AND.  q_surface_initial_change /= 0.0 )  THEN
+    IF ( humidity  .AND.  q_surface_initial_change /= 0.0 )  THEN
        WRITE ( io, 476 )  q_surface_initial_change       
     ENDIF
@@ -1113 +1116 @@
 
  99 FORMAT (1X,78('-'))
-100 FORMAT (/10X,'****************',11X,28('-')/                &
-            10X,'*  ',A12,'*',11X,A/                            &
-            10X,'****************',11X,28('-')//                &
+100 FORMAT (/1X,'*************************',11X,28('-')/        &
+            1X,'* ',A,' *',11X,A/                               &
+            1X,'*************************',11X,28('-')//        &
             ' Date:            ',A8,11X,'Run:       ',A20/      &
             ' Time:            ',A8,11X,'Run-No.:   ',I2.2/     &