Changeset 2696 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Dec 14, 2017 5:12:51 PM (6 years ago)
- Location:
- palm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk
-
palm/trunk/SOURCE
-
palm/trunk/SOURCE/header.f90
r2575 r2696 1 1 !> @file header.f90 2 2 !------------------------------------------------------------------------------! 3 ! This file is part of PALM.3 ! This file is part of the PALM model system. 4 4 ! 5 5 ! PALM is free software: you can redistribute it and/or modify it under the … … 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Print information about turbulence closure (TG) 28 ! Print information about inifor initialization (MS) 29 ! 30 ! 2575 2017-10-24 09:57:58Z maronga 27 31 ! Added output for complex terrain simulations 28 32 ! … … 512 516 ELSEIF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) THEN 513 517 run_classification = 'run with 1D - prerun' 518 ELSEIF ( INDEX( initializing_actions, 'inifor' ) /= 0 ) THEN 519 run_classification = 'run initialized with COSMO data' 514 520 ELSEIF ( INDEX( initializing_actions, 'by_user' ) /=0 ) THEN 515 521 run_classification = 'run initialized by user' … … 602 608 !-- Numerical schemes 603 609 WRITE ( io, 110 ) 610 IF ( rans_mode ) THEN 611 WRITE ( io, 124 ) TRIM( turbulence_closure ), 'RANS' 612 ELSE 613 WRITE ( io, 124 ) TRIM( turbulence_closure ), 'LES' 614 ENDIF 604 615 WRITE ( io, 121 ) TRIM( approximation ) 605 616 IF ( psolver(1:7) == 'poisfft' ) THEN … … 1962 1973 110 FORMAT (/' Numerical Schemes:'/ & 1963 1974 ' -----------------'/) 1975 124 FORMAT (' --> Use the ',A,' turbulence closure (',A,' mode).') 1964 1976 121 FORMAT (' --> Use the ',A,' approximation for the model equations.') 1965 1977 111 FORMAT (' --> Solve perturbation pressure via FFT using ',A,' routines')
Note: See TracChangeset
for help on using the changeset viewer.