Changeset 4358 for palm/trunk/SOURCE/dynamics_mod.f90
- Timestamp:
- Dec 30, 2019 1:03:09 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/dynamics_mod.f90
r4347 r4358 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Refine post-initialization check for realistically inital values of mixing ratio. Give an error 28 ! message for faulty initial values, but only a warning in a restart run. 29 ! 30 ! 4347 2019-12-18 13:18:33Z suehring 27 31 ! Implement post-initialization check for realistically inital values of mixing ratio 28 32 ! … … 479 483 !-- not exceed the saturation mixing ratio by more than 2 percent. Please note, the check is 480 484 !-- performed for each grid point (not just for a vertical profile), in order to cover also 481 !-- three-dimensional initialization. 485 !-- three-dimensional initialization. Note, this check gives an error only for the initial run not 486 !-- for a restart run. In case there are no cloud physics considered, the mixing ratio can exceed 487 !-- the saturation moisture. This case a warning is given. 482 488 IF ( humidity .AND. .NOT. neutral ) THEN 483 489 DO i = nxl, nxr … … 502 508 #endif 503 509 504 IF ( .NOT. realistic_q ) THEN 510 IF ( .NOT. realistic_q .AND. & 511 TRIM( initializing_actions ) /= 'read_restart_data' ) THEN 505 512 message_string = 'The initial mixing ratio exceeds the saturation mixing ratio.' 506 513 CALL message( 'dynamic_init_checks', 'PA0697', 2, 2, 0, 6, 0 ) 514 ELSEIF ( .NOT. realistic_q .AND. & 515 TRIM( initializing_actions ) == 'read_restart_data' ) THEN 516 message_string = 'The mixing ratio exceeds the saturation mixing ratio.' 517 CALL message( 'dynamic_init_checks', 'PA0697', 0, 1, 0, 6, 0 ) 507 518 ENDIF 508 519 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.