Changeset 1759 for palm/trunk

Timestamp:

Feb 22, 2016 4:07:15 PM (8 years ago)

Author:

maronga

Message:

bugfix for last commit

Location:

palm/trunk

Files:

• SCRIPTS/mrun (modified) (1 diff)
• SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SCRIPTS/mrun

@@ -27 +27 @@
 # -----------------
 # $Id$
-#
-# 1757 2016-02-22 15:49:32Z maronga
-# Bugfix: use random number when PBS system is not working properly at lccray*
 # 
 # 1755 2016-02-22 13:53:39Z maronga

palm/trunk/SOURCE/check_parameters.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Previous version restored.
 ! 
 ! Former revisions:
@@ -4284 +4284 @@
 !
 !-- Check nudging and large scale forcing from external file
-!!!    IF ( nudging .AND. ( .NOT. large_scale_forcing ) )  THEN
-!!!       message_string = 'Nudging requires large_scale_forcing = .T.. &'//      &
-!!!                        'Surface fluxes and geostrophic wind should be &'//    &
-!!!                        'prescribed in file LSF_DATA'
-!!!       CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
-!!    ENDIF
+    IF ( nudging .AND. ( .NOT. large_scale_forcing ) )  THEN
+       message_string = 'Nudging requires large_scale_forcing = .T.. &'//      &
+                        'Surface fluxes and geostrophic wind should be &'//    &
+                        'prescribed in file LSF_DATA'
+       CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
+    ENDIF
 
     IF ( large_scale_forcing .AND. ( bc_lr /= 'cyclic'  .OR.                   &