Ignore:
Timestamp:
Dec 19, 2018 1:48:34 PM (2 years ago)
Author:
raasch
Message:

nopointer option removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/salsa_mod.f90

    r3630 r3636  
    2626! -----------------
    2727! $Id$
     28! nopointer option removed
     29!
     30! 3630 2018-12-17 11:04:17Z knoop
    2831! - Moved the control parameter "salsa" from salsa_mod.f90 to control_parameters
    2932! - Updated salsa_rrd_local and salsa_wrd_local
     
    935938!
    936939!-- Allocate prognostic variables (see salsa_swap_timelevel)
    937 #if defined( __nopointer )
    938     message_string = 'SALSA runs only with POINTER Version'
    939     CALL message( 'salsa_mod: salsa_init_arrays', 'SA0023', 1, 2, 0, 6, 0 )
    940 #else         
     940
    941941!
    942942!-- Set derived indices:
     
    11601160    ENDIF
    11611161   
    1162 #endif
    1163 
    11641162 END SUBROUTINE salsa_init_arrays
    11651163
     
    19581956    INTEGER(iwp) ::  g  !<
    19591957
    1960 !
    1961 !-- Example for prognostic variable "prog_var"
    1962 #if defined( __nopointer )
    1963     IF ( myid == 0 )  THEN
    1964        message_string =  ' SALSA runs only with POINTER Version'
    1965        CALL message( 'salsa_swap_timelevel', 'SA0022', 1, 2, 0, 6, 0 )
    1966     ENDIF
    1967 #else
    1968    
     1958
    19691959    SELECT CASE ( mod_count )
    19701960
     
    20202010
    20212011    END SELECT
    2022 #endif
    20232012
    20242013 END SUBROUTINE salsa_swap_timelevel
Note: See TracChangeset for help on using the changeset viewer.