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

Timestamp:

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

Author:

raasch

Message:

nopointer option removed

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! nopointer option removed
+!
+! 3611 2018-12-07 14:14:11Z banzhafs
 ! Minor formatting             
 !
@@ -1674 +1677 @@
 
     IMPLICIT NONE
-!-- local variables
+
+!
+!-- Local variables
     INTEGER(iwp) ::  i                 !< running index for for horiz numerical grid points
     INTEGER(iwp) ::  j                 !< running index for for horiz numerical grid points
     INTEGER(iwp) ::  lsp               !< running index for chem spcs
     INTEGER(iwp) ::  lpr_lev           !< running index for chem spcs profile level
-!
-!-- NOPOINTER version not implemented yet
-! #if defined( __nopointer )
-!     message_string = 'The chemistry module only runs with POINTER version'
-!     CALL message( 'chemistry_model_mod', 'CM0001', 1, 2, 0, 6, 0 )      
-! #endif
+
 !
 !-- Allocate memory for chemical species
@@ -1703 +1703 @@
 
 
-    DO lsp = 1, nspec
+    DO  lsp = 1, nspec
        chem_species(lsp)%name    = spc_names(lsp)