Changeset 3542 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Nov 20, 2018 5:04:13 PM (5 years ago)

Author:

suehring

Message:

Revise ghost point exchange in netcdf-data input; new routine for ghost point exchange of 1-Byte Integer; Remove tabs in chemistry model which prevent compilation with gfortran and debug options

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! -----------------
-! 
+! Remove tabs
 ! 
 ! Former revisions:
@@ -295 +295 @@
     ! DEPAC landuse classes as defined in LOTOS-EUROS model v2.1                              
     !
-    INTEGER(iwp)  ::  ilu_grass              = 1        
-    INTEGER(iwp)  ::  ilu_arable             = 2        
+    INTEGER(iwp)  ::  ilu_grass              = 1        
+    INTEGER(iwp)  ::  ilu_arable             = 2        
     INTEGER(iwp)  ::  ilu_permanent_crops    = 3         
     INTEGER(iwp)  ::  ilu_coniferous_forest  = 4         
     INTEGER(iwp)  ::  ilu_deciduous_forest   = 5         
-    INTEGER(iwp)  ::  ilu_water_sea          = 6        
-    INTEGER(iwp)  ::  ilu_urban              = 7        
+    INTEGER(iwp)  ::  ilu_water_sea          = 6        
+    INTEGER(iwp)  ::  ilu_urban              = 7        
     INTEGER(iwp)  ::  ilu_other              = 8  
     INTEGER(iwp)  ::  ilu_desert             = 9  
@@ -313 +313 @@
     !--------------------------------------------------------------------------
     ! NH3/SO2 ratio regimes:
-    INTEGER, PARAMETER  ::  iratns_low  = 1       ! low ratio NH3/SO2
-    INTEGER, PARAMETER  ::  iratns_high = 2       ! high ratio NH3/SO2
+    INTEGER, PARAMETER  ::  iratns_low  = 1       ! low ratio NH3/SO2
+    INTEGER, PARAMETER  ::  iratns_high = 2       ! high ratio NH3/SO2
     INTEGER, PARAMETER  ::  iratns_very_low = 3   ! very low ratio NH3/SO2
     ! Default:
@@ -4209 +4209 @@
       INTEGER(iwp)              , INTENT(in)       :: day_of_year      ! day of year, 1 ... 365 (366)
       REAL(kind=wp)             , INTENT(in)       :: lat                   ! latitude Northern hemisphere (degrees) (DEPAC cannot be used for S. hemisphere)
-      REAL(kind=wp)            , INTENT(in)        :: t                ! temperature (C)
+      REAL(kind=wp)            , INTENT(in)        :: t                ! temperature (C)
       ! NB discussion issue is temp T_2m or T_surf or T_leaf?
       REAL(kind=wp)             , INTENT(in)       :: ust              ! friction velocity (m/s)
@@ -4615 +4615 @@
 
       ! input/output variables:
-      INTEGER(iwp),           INTENT(in) :: icmp           ! component index
-      CHARACTER(len=*),       INTENT(in) :: compnam        ! component name
-      INTEGER(iwp),           INTENT(in) :: lu             ! land use type , lu = 1,...,nlu
+      INTEGER(iwp),           INTENT(in) :: icmp        ! component index
+      CHARACTER(len=*),       INTENT(in) :: compnam     ! component name
+      INTEGER(iwp),           INTENT(in) :: lu          ! land use type , lu = 1,...,nlu
       LOGICAL,                INTENT(in) :: LAI_present
-      REAL(kind=wp),          INTENT(in) :: lai            ! one-sided leaf area index
-      REAL(kind=wp),          INTENT(in) :: glrad          ! global radiation (W/m2)
-      REAL(kind=wp),          INTENT(in) :: sinphi         ! sin of solar elevation angle
-      REAL(kind=wp),          INTENT(in) :: t              ! temperature (C)
-      REAL(kind=wp),          INTENT(in) :: rh             ! relative humidity (%)
-      REAL(kind=wp),          INTENT(in) :: diffc              ! diffusion coefficient of the gas involved
-      REAL(kind=wp),          INTENT(out):: gstom              ! stomatal conductance (m/s)
-      REAL(kind=wp), OPTIONAL,INTENT(in) :: p              ! pressure (Pa)
+      REAL(kind=wp),          INTENT(in) :: lai         ! one-sided leaf area index
+      REAL(kind=wp),          INTENT(in) :: glrad       ! global radiation (W/m2)
+      REAL(kind=wp),          INTENT(in) :: sinphi      ! sin of solar elevation angle
+      REAL(kind=wp),          INTENT(in) :: t           ! temperature (C)
+      REAL(kind=wp),          INTENT(in) :: rh          ! relative humidity (%)
+      REAL(kind=wp),          INTENT(in) :: diffc       ! diffusion coefficient of the gas involved
+      REAL(kind=wp),          INTENT(out):: gstom       ! stomatal conductance (m/s)
+      REAL(kind=wp), OPTIONAL,INTENT(in) :: p           ! pressure (Pa)