Changeset 2342

Timestamp:

Aug 8, 2017 11:00:43 AM (7 years ago)

Author:

boeske

Message:

fixed check if surface forcing data is available until end of simulation

File:

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

palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! fixed check if surface forcing data is available until end of simulation
+! 
+! 2320 2017-07-21 12:47:43Z suehring
+! initial revision
 !
 ! Description:
@@ -32 +36 @@
 !> Moreover, module contains nudging routines, where u, v, pt and q are nudged 
 !> to given profiles on a relaxation timescale tnudge. 
-!> Profiles are read in from NUDGIN_DATA. 
+!> Profiles are read in from NUDGING_DATA. 
 !> Code is based on Neggers et al. (2012) and also in parts on DALES and UCLA-LES.
 !> @todo: Revise reading of ASCII-files
@@ -481 +485 @@
                                              q_surf(nt), p_surf(nt)
 
-          IF ( ierrn < 0 )  THEN
+          IF ( ierrn /= 0 )  THEN
             WRITE ( message_string, * ) 'No time dependent surface variables ',&
                               'in&LSF_DATA for end of run found'