Changeset 3636 for palm/trunk/SOURCE/chem_modules.f90

Timestamp:

Dec 19, 2018 1:48:34 PM (6 years ago)

Author:

raasch

Message:

nopointer option removed

File:

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

palm/trunk/SOURCE/chem_modules.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3611 2018-12-07 14:14:11Z banzhafs
 ! Minor formatting
 !
@@ -43 +46 @@
 ! Initial revision
 !
-! 
-!
-!
 ! Authors:
 ! --------
@@ -56 +56 @@
 ! Description:
 ! ------------
-!> Definition of global palm-4u chemistry variables
-!> (Module written to define global palm-4u chemistry variables. basit 16Nov2017)
+!> Definition of global PALM-4U chemistry variables
 !------------------------------------------------------------------------------!
 !
@@ -115 +114 @@
     REAL(wp), DIMENSION(99,100)                       ::  cs_profile = 9999999.9_wp !< Namelist parameter: Chem conc for each spcs defined
 
-
-#if defined( __nopointer )
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET   ::  cs                        !< chem spcs
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET   ::  cs_p                      !< prognostic value of chem spc
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET   ::  tcs_m                     !< weighted tendency of cs for previous sub-timestep (Runge-Kutta)
-
-#else                                                               
 !
 !-- Use pointers cs, cs_p and tcs_m to point arrays cs_1, cs_2, and cs_3
@@ -130 +122 @@
     REAL(wp), DIMENSION(:,:,:), POINTER               ::  cs_p                      !< pointer: prognostic value of sgs chem spcs 
     REAL(wp), DIMENSION(:,:,:), POINTER               ::  tcs_m                     !< pointer:
-
-#endif                                                                            
  
     CHARACTER (LEN=20)                ::  bc_cs_b             = 'dirichlet'         !< namelist parameter