Changeset 4498 for palm/trunk/SOURCE/user_init_3d_model.f90

Timestamp:

Apr 15, 2020 2:26:31 PM (4 years ago)

Author:

raasch

Message:

bugfix for creation of filetypes, argument removed from rd_mpi_io_open, files re-formatted to follow the PALM coding standard

File:

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

palm/trunk/SOURCE/user_init_3d_model.f90

@@ -1 +1 @@
 !> @file user_init_3d_model.f90
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
 !
-! PALM is free software: you can redistribute it and/or modify it under the
-! terms of the GNU General Public License as published by the Free Software
-! Foundation, either version 3 of the License, or (at your option) any later
-! version.
+! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
+! Public License as published by the Free Software Foundation, either version 3 of the License, or
+! (at your option) any later version.
 !
-! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
-! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
+! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+! Public License for more details.
 !
-! You should have received a copy of the GNU General Public License along with
-! PALM. If not, see <http://www.gnu.org/licenses/>.
+! You should have received a copy of the GNU General Public License along with PALM. If not, see
+! <http://www.gnu.org/licenses/>.
 !
 ! Copyright 1997-2020 Leibniz Universitaet Hannover
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
+!
 !
 ! Current revisions:
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! file re-formatted to follow the PALM coding standard
+!
+!
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
-! 
+!
 ! 3768 2019-02-27 14:35:58Z raasch
 ! variables commented out to avoid compiler warnings about unused variables
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
@@ -42 +46 @@
 !> @attention The user is responsible to set at least all those quantities which
 !>            are normally set within init_3d_model!
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE user_init_3d_model
- 
+
 
     USE arrays_3d
-    
+
     USE control_parameters
-    
+
     USE indices
-    
+
     USE kinds
 
     USE surface_mod
-    
+
     USE user
 
     IMPLICIT NONE
 
-!    INTEGER(iwp) ::  l !< running index surface orientation
-!    INTEGER(iwp) ::  m !< running index surface elements
+!    INTEGER(iwp) ::  l  !< running index surface orientation
+!    INTEGER(iwp) ::  m  !< running index surface elements
 
 !
 !-- Initialization of surface-related quantities.
-!-- The following example shows required initialization of surface quantitites
-!-- at default-type upward-facing surfaces.  
+!-- The following example shows required initialization of surface quantitites at default-type
+!-- upward-facing surfaces.
 !   DO  m = 1, surf_def_h(0)%ns
 !      surf_def_h(0)%ol(m)   = ...    ! Obukhov length
@@ -87 +91 @@
 !         surf_def_h(0)%ssws(m) = ... ! surface latent heat flux
 !      ENDIF
-!   ENDDO 
+!   ENDDO
 !
 !-- Same for natural and urban type surfaces
 !   DO  m = 1, surf_lsm_h%ns
 !      ...
-!   ENDDO 
+!   ENDDO
 !   DO  m = 1, surf_usm_h%ns
 !      ...
 !   ENDDO
 !
-!-- Also care for vertically aligned surfaces (default-, natural-, and 
+!-- Also care for vertically aligned surfaces (default-, natural-, and
 !-- urban-type).
 !   DO  l = 0, 3