Ignore:
Timestamp:
Feb 27, 2019 8:18:02 AM (2 years ago)
Author:
raasch
Message:

unused variables removed from rrd-subroutines parameter list

File:
1 edited

Legend:

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

    r3719 r3767  
    2525! -----------------
    2626! $Id$
     27! unused variable for file index and tmp_2d removed from rrd-subroutine parameter
     28! list
     29!
     30! 3719 2019-02-06 13:10:18Z kanani
    2731! Changed log_point to log_point_s, otherwise this overlaps with
    2832! 'all progn.equations' cpu measurement.
     
    18641868!> This routine reads the respective restart data for the ocean module.
    18651869!------------------------------------------------------------------------------!
    1866  SUBROUTINE ocean_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,        &
     1870 SUBROUTINE ocean_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,           &
    18671871                             nxr_on_file, nynf, nync, nyn_on_file, nysf,       &
    1868                              nysc, nys_on_file, tmp_2d, tmp_3d, found )
     1872                             nysc, nys_on_file, tmp_3d, found )
    18691873
    18701874    USE averaging,                                                             &
     
    18821886    IMPLICIT NONE
    18831887
    1884     INTEGER(iwp) ::  i               !<
    18851888    INTEGER(iwp) ::  k               !<
    18861889    INTEGER(iwp) ::  nxlc            !<
     
    18991902    LOGICAL, INTENT(OUT)  ::  found
    19001903
    1901     REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_2d   !<
    19021904    REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !<
    19031905
Note: See TracChangeset for help on using the changeset viewer.