Changeset 1757 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Feb 22, 2016 3:49:32 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r1746 r1757 4284 4284 ! 4285 4285 !-- Check nudging and large scale forcing from external file 4286 IF ( nudging .AND. ( .NOT. large_scale_forcing ) ) THEN4287 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 ENDIF4286 !!! 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 4292 4292 4293 4293 IF ( large_scale_forcing .AND. ( bc_lr /= 'cyclic' .OR. &
Note: See TracChangeset
for help on using the changeset viewer.