Ignore:
Timestamp:
Aug 8, 2017 11:00:43 AM (4 years ago)
Author:
boeske
Message:

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

File:
1 edited

Legend:

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

    r2320 r2342  
    2525! -----------------
    2626! $Id$
     27! fixed check if surface forcing data is available until end of simulation
     28!
     29! 2320 2017-07-21 12:47:43Z suehring
     30! initial revision
    2731!
    2832! Description:
     
    3236!> Moreover, module contains nudging routines, where u, v, pt and q are nudged
    3337!> to given profiles on a relaxation timescale tnudge.
    34 !> Profiles are read in from NUDGIN_DATA.
     38!> Profiles are read in from NUDGING_DATA.
    3539!> Code is based on Neggers et al. (2012) and also in parts on DALES and UCLA-LES.
    3640!> @todo: Revise reading of ASCII-files
     
    481485                                             q_surf(nt), p_surf(nt)
    482486
    483           IF ( ierrn < 0 )  THEN
     487          IF ( ierrn /= 0 )  THEN
    484488            WRITE ( message_string, * ) 'No time dependent surface variables ',&
    485489                              'in&LSF_DATA for end of run found'
Note: See TracChangeset for help on using the changeset viewer.