Ignore:
Timestamp:
Dec 10, 2018 7:05:46 AM (3 years ago)
Author:
raasch
Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:
1 edited

Legend:

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

    r3568 r3614  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3568 2018-11-27 16:07:59Z raasch
    2730! bugifx: calculate equation of state for seawater even if salinity is switched
    2831!         off
     
    512515 SUBROUTINE ocean_parin
    513516
    514     USE control_parameters,                                                    &
    515         ONLY:  message_string
    516 
    517517    IMPLICIT NONE
    518518
     
    706706
    707707    USE control_parameters,                                                    &
    708         ONLY:  data_output_pr, message_string
     708        ONLY:  data_output_pr
    709709
    710710    USE indices
     
    11721172    USE indices,                                                               &
    11731173        ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
    1174 
    1175     USE pmc_interface,                                                         &
    1176         ONLY:  nested_run
    11771174
    11781175    IMPLICIT NONE
     
    21602157
    21612158    USE indices,                                                               &
    2162         ONLY:  nxl, nxr, nys, nysv, nyn, nzb, nzt
     2159        ONLY:  nzb, nzt
    21632160
    21642161    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.