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

Timestamp:

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

Author:

raasch

Message:

nopointer option removed

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3630 2018-12-17 11:04:17Z knoop
 ! - Moved the control parameter "salsa" from salsa_mod.f90 to control_parameters
 ! - Updated salsa_rrd_local and salsa_wrd_local
@@ -935 +938 @@
 !
 !-- Allocate prognostic variables (see salsa_swap_timelevel)
-#if defined( __nopointer )
-    message_string = 'SALSA runs only with POINTER Version'
-    CALL message( 'salsa_mod: salsa_init_arrays', 'SA0023', 1, 2, 0, 6, 0 )
-#else         
+
 !
 !-- Set derived indices:
@@ -1160 +1160 @@
     ENDIF
     
-#endif
-
  END SUBROUTINE salsa_init_arrays
 
@@ -1958 +1956 @@
     INTEGER(iwp) ::  g  !<
 
-!
-!-- Example for prognostic variable "prog_var"
-#if defined( __nopointer )
-    IF ( myid == 0 )  THEN
-       message_string =  ' SALSA runs only with POINTER Version'
-       CALL message( 'salsa_swap_timelevel', 'SA0022', 1, 2, 0, 6, 0 )
-    ENDIF
-#else
-    
+
     SELECT CASE ( mod_count )
 
@@ -2020 +2010 @@
 
     END SELECT
-#endif
 
  END SUBROUTINE salsa_swap_timelevel