Changeset 3614 for palm/trunk/SOURCE/ocean_mod.f90

Timestamp:

Dec 10, 2018 7:05:46 AM (4 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/ocean_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3568 2018-11-27 16:07:59Z raasch
 ! bugifx: calculate equation of state for seawater even if salinity is switched
 !         off
@@ -512 +515 @@
  SUBROUTINE ocean_parin
 
-    USE control_parameters,                                                    &
-        ONLY:  message_string
-
     IMPLICIT NONE
 
@@ -706 +706 @@
 
     USE control_parameters,                                                    &
-        ONLY:  data_output_pr, message_string
+        ONLY:  data_output_pr
 
     USE indices
@@ -1172 +1172 @@
     USE indices,                                                               &
         ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
-
-    USE pmc_interface,                                                         &
-        ONLY:  nested_run
 
     IMPLICIT NONE
@@ -2160 +2157 @@
 
     USE indices,                                                               &
-        ONLY:  nxl, nxr, nys, nysv, nyn, nzb, nzt
+        ONLY:  nzb, nzt
 
     IMPLICIT NONE