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

nopointer option removed

File:
1 edited

Legend:

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

    r3614 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 3614 2018-12-10 07:05:46Z raasch
    2730! unused variables removed
    2831!
     
    6467 
    6568
    66 #if defined( __nopointer )
    67     USE arrays_3d,                                                             &
    68         ONLY:  prho, rho_ocean, sa, sa_init, sa_p, tsa_m
    69 #else
    7069    USE arrays_3d,                                                             &
    7170        ONLY:  prho, prho_1, rho_ocean, rho_1, sa, sa_init, sa_1, sa_2, sa_3,  &
    7271               sa_p, tsa_m
    73 #endif
    7472
    7573    USE control_parameters,                                                    &
     
    11751173    IMPLICIT NONE
    11761174
    1177 #if defined( __nopointer )
    1178     ALLOCATE( prho(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                             &
    1179               rho_ocean(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                        &
    1180               sa(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                               &
    1181               sa_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                             &
    1182               tsa_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1183 #else
    11841175    ALLOCATE( prho_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                           &
    11851176              rho_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                            &
     
    11941185    rho_ocean  => rho_1  ! routines calc_mean_profile and diffusion_e require
    11951186                         ! density to be a pointer
    1196 #endif
    1197 
    1198 #if ! defined( __nopointer )
     1187
    11991188!
    12001189!-- Initial assignment of pointers
     
    12041193       sa => sa_1;  sa_p => sa_1;  tsa_m => sa_3
    12051194    ENDIF
    1206 #endif
    12071195
    12081196 END SUBROUTINE ocean_init_arrays
     
    17861774    INTEGER, INTENT(IN) ::  mod_count  !< flag defining where pointers point to
    17871775
    1788 #if defined( __nopointer )
    1789 
    1790     sa = sa_p
    1791 
    1792 #else
    1793    
     1776
    17941777    SELECT CASE ( mod_count )
    17951778
     
    18051788
    18061789    END SELECT
    1807 
    1808 #endif
    18091790
    18101791 END SUBROUTINE ocean_swap_timelevel
Note: See TracChangeset for help on using the changeset viewer.