Changeset 1759


Ignore:
Timestamp:
Feb 22, 2016 4:07:15 PM (6 years ago)
Author:
maronga
Message:

bugfix for last commit

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/mrun

    r1758 r1759  
    2727# -----------------
    2828# $Id$
    29 #
    30 # 1757 2016-02-22 15:49:32Z maronga
    31 # Bugfix: use random number when PBS system is not working properly at lccray*
    3229#
    3330# 1755 2016-02-22 13:53:39Z maronga
  • palm/trunk/SOURCE/check_parameters.f90

    r1757 r1759  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Previous version restored.
    2222!
    2323! Former revisions:
     
    42844284!
    42854285!-- Check nudging and large scale forcing from external file
    4286 !!!    IF ( nudging .AND. ( .NOT. large_scale_forcing ) )  THEN
    4287 !!!       message_string = 'Nudging requires large_scale_forcing = .T.. &'//      &
    4288 !!!                        'Surface fluxes and geostrophic wind should be &'//    &
    4289 !!!                        'prescribed in file LSF_DATA'
    4290 !!!       CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
    4291 !!    ENDIF
     4286    IF ( nudging .AND. ( .NOT. large_scale_forcing ) )  THEN
     4287       message_string = 'Nudging requires large_scale_forcing = .T.. &'//      &
     4288                        'Surface fluxes and geostrophic wind should be &'//    &
     4289                        'prescribed in file LSF_DATA'
     4290       CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
     4291    ENDIF
    42924292
    42934293    IF ( large_scale_forcing .AND. ( bc_lr /= 'cyclic'  .OR.                   &
Note: See TracChangeset for help on using the changeset viewer.