Changeset 1759 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

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

Author:

maronga

Message:

bugfix for last commit

File:

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

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.                   &