Changeset 2965 for palm/trunk/SOURCE

Timestamp:

Apr 13, 2018 7:37:25 AM (7 years ago)

Author:

scharf

Message:

bugfix: adjusted format string for 1D run control output

File:

• palm/trunk/SOURCE/model_1d_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/model_1d_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! adjusted format string for 1D run control output
+! 
+! 2918 2018-03-21 15:52:14Z gronemeier
 ! - rename l_black into l1d_init
 ! - calculate l_grid within init_1d_model and save it as l1d_init
@@ -132 +135 @@
 !> @todo harmonize code with new surface_layer_fluxes module
 !> @bug 1D model crashes when using small grid spacings in the order of 1 m
-!> @fixme option "as_in_3d_model" seems to eb an inappropriate option because
+!> @fixme option "as_in_3d_model" seems to be an inappropriate option because
 !>        the 1D model uses different turbulence closure approaches at least if
 !>        the 3D model is set to LES-mode.
@@ -315 +318 @@
 !
 !--       Use the same mixing length as in 3D model (LES-mode)
-          !### TODO: rename (delete?) this option
-          !###  As the mixing length is different between RANS and LES mode, it
-          !###  must be distinguished here between these modes. For RANS mode,
-          !###  the mixing length is calculated accoding to Blackadar, which is
-          !###  the other option at this point.
-          !###  Maybe delete this option entirely (not appropriate in LES case)
-          !###  2018-03-20, gronemeier
+          !@todo: rename (delete?) this option
+          ! As the mixing length is different between RANS and LES mode, it
+          ! must be distinguished here between these modes. For RANS mode,
+          ! the mixing length is calculated accoding to Blackadar, which is
+          ! the other option at this point.
+          ! Maybe delete this option entirely (not appropriate in LES case)
+          ! 2018-03-20, gronemeier
           DO  k = nzb+1, nzt
              l1d_init(k)  = ( dx * dy * dzw(k) )**0.33333333333333_wp
@@ -987 +990 @@
 100 FORMAT (///'1D run control output:'/ &
               &'------------------------------'// &
-           &'ITER.  HH:MM:SS    DT      UMAX   VMAX    U*   ALPHA   ENERG.'/ &
+           &'ITER.   HH:MM:SS    DT      UMAX   VMAX    U*   ALPHA   ENERG.'/ &
            &'-------------------------------------------------------------')
-101 FORMAT (I5,2X,A9,1X,F6.2,2X,F6.2,1X,F6.2,1X,F6.3,2X,F5.1,2X,F7.2)
+101 FORMAT (I7,1X,A9,1X,F6.2,2X,F6.2,1X,F6.2,1X,F6.3,2X,F5.1,2X,F7.2)