Changeset 4788


Ignore:
Timestamp:
Nov 17, 2020 1:57:33 PM (4 years ago)
Author:
oliver.maas
Message:

allow prescribing initial uv_profiles AND geostrophic wind by changing error message PA0347 to an informative message

File:
1 edited

Legend:

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

    r4685 r4788  
    2424! -----------------
    2525! $Id$
     26! allow prescribing initial uv_profiles AND geostrophic wind
     27! by changing error message PA0347 to an informative message
     28!
     29! 4685 2020-09-18 11:49:50Z gronemeier
    2630! filter data_output_pr and data_output list for duplicate entries
    2731!
     
    10281032
    10291033          IF ( omega /= 0.0_wp )  THEN
    1030              message_string = 'Coriolis force must be switched off (by setting omega=0.0)' //      &
    1031                               ' when prescribing the forcing by u_profile and v_profile'
    1032              CALL message( 'check_parameters', 'PA0347', 1, 2, 0, 6, 0 )
     1034             message_string = 'Coriolis force is switched on (omega /= 0.0) and' //                &
     1035                              ' initial profiles u_profile and v_profile are prescribed'
     1036             CALL message( 'check_parameters', 'PA0347', 0, 0, 0, 6, 0 )
    10331037          ENDIF
    10341038
Note: See TracChangeset for help on using the changeset viewer.