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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3232 2018-09-07 12:21:44Z raasch
 ! Increase printed length of run identifier
 ! 
@@ -465 +468 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=1)  ::  prec                !<
     
     CHARACTER (LEN=2)  ::  do2d_mode           !<
@@ -524 +526 @@
     INTEGER(iwp) ::  i              !<
     INTEGER(iwp) ::  io             !<
-    INTEGER(iwp) ::  j              !<
-    INTEGER(iwp) ::  k              !<
     INTEGER(iwp) ::  l              !<
     INTEGER(iwp) ::  ll             !<
@@ -576 +576 @@
        CALL message( 'header', 'PA0191', 0, 0, 0, 6, 0 )
     ENDIF
-    IF ( nested_run )  run_classification = 'nested ' // run_classification
+    IF ( nested_run )  run_classification = 'nested ' // run_classification(1:63)
     IF ( ocean )  THEN
-       run_classification = 'ocean - ' // run_classification
+       run_classification = 'ocean - ' // run_classification(1:61)
     ELSE
-       run_classification = 'atmosphere - ' // run_classification
+       run_classification = 'atmosphere - ' // run_classification(1:57)
     ENDIF
 
@@ -1884 +1884 @@
     WRITE ( io, 410 )  latitude, longitude, omega, f, fs
 
- !
-!-- Geostrophic parameters
+!
+!-- Day of year, UTC
     WRITE ( io, 456 )  day_of_year_init, time_utc_init
     
@@ -2334 +2334 @@
             '    Specific heat cap. :   c_p   = ',F6.1,' J/(kg K)'/ &
             '    Vapourization heat :   L_v   =',E9.2,' J/kg')
-418 FORMAT (/'    Day of the year at model start :   day_init      =     ',I3 &
-            /'    UTC time at model start        :   time_utc_init = ',F7.1' s')
 420 FORMAT (/'    Characteristic levels of the initial temperature profile:'// &
             '       Height:        ',A,'  m'/ &
@@ -2400 +2398 @@
 454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
 455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')
-456 FORMAT ('    Day of the year at model start :   day_init = ',I3             &
-            /'    UTC time at model start        :   time_utc_init = ',F7.1' s')
+456 FORMAT (/'    Day of the year at model start :   day_init      =     ',I3 &
+            /'    UTC time at model start        :   time_utc_init = ',F7.1,' s')
 457 FORMAT ('    RANS-mode constants: c_0 = ',F9.5/         &
             '                         c_1 = ',F9.5/         &