Changeset 4577 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

Jun 25, 2020 9:53:58 AM (4 years ago)

Author:

raasch

Message:

further re-formatting to follow the PALM coding standard

File:

• palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! further re-formatting concerning Fortran parameter variables
+!
+! 4542 2020-05-19 15:45:12Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -2884 +2887 @@
     IMPLICIT NONE
 
+    REAL(wp), PARAMETER ::  fill_value = -999.0_wp  !< value for the _FillValue attribute
+
     CHARACTER (LEN=*), INTENT(INOUT) ::  grid       !< name of vertical grid
     CHARACTER (LEN=*), INTENT(IN)    ::  mode       !< either 'xy', 'xz' or 'yz'
@@ -2902 +2907 @@
     LOGICAL, INTENT(INOUT) ::  two_d   !< flag parameter that indicates 2D variables
                                        !<  (horizontal cross sections)
-
-
-    REAL(wp), PARAMETER ::  fill_value = -999.0_wp  !< value for the _FillValue attribute
 
     REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf !< local
@@ -6531 +6533 @@
        INTEGER(iwp) ::  j            !<
 
-       REAL(wp)     ::  gamm         !<
-       REAL(wp)     ::  ser          !<
-       REAL(wp)     ::  tmp          !<
-       REAL(wp)     ::  x_gamm       !<
-       REAL(wp)     ::  xx           !<
-       REAL(wp)     ::  y_gamm       !<
-
-
        REAL(wp), PARAMETER  ::  stp = 2.5066282746310005_wp               !<
        REAL(wp), PARAMETER  ::  cof(6) = (/ 76.18009172947146_wp,                                  &
@@ -6547 +6541 @@
                                             -0.5395239384953E-5_wp /)     !<
 
+       REAL(wp)     ::  gamm         !<
+       REAL(wp)     ::  ser          !<
+       REAL(wp)     ::  tmp          !<
+       REAL(wp)     ::  x_gamm       !<
+       REAL(wp)     ::  xx           !<
+       REAL(wp)     ::  y_gamm       !<
+
+
        x_gamm = xx
        y_gamm = x_gamm