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

Timestamp:

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

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3428 2018-10-25 12:32:05Z gronemeier
 ! Rename td_XXX_lpt to td_XXX_thetal
 ! 
@@ -456 +459 @@
     SUBROUTINE lsf_init
 
-       USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc
-
        IMPLICIT NONE