Changeset 2300 for palm/trunk/SOURCE/close_file.f90

Timestamp:

Jun 29, 2017 1:31:14 PM (7 years ago)

Author:

raasch

Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:

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

palm/trunk/SOURCE/close_file.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! -host
+! 
+! 2277 2017-06-12 10:47:51Z kanani
 ! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n, do3d_avs_n
 ! 
@@ -79 +82 @@
 
     USE control_parameters,                                                    &
-        ONLY:  host, max_masks,                                                &
-               mid, nz_do3d, openfile, run_description_header, z_max_do2d
+        ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header,      &
+               z_max_do2d
                 
     USE grid_variables,                                                        &