source: palm/trunk/SOURCE/check_namelist_files.f90 @ 821

Last change on this file since 821 was 818, checked in by maronga, 13 years ago

bugfix: namelist file check now possible for topography and re-enabled. mrungui update (-z option)

  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1PROGRAM check_namelist_files
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: check_namelist_files.f90 818 2012-02-08 16:11:23Z maronga $
11!
12! 807 2012-01-25 11:53:51Z maronga
13! Initial revision
14!
15! Description:
16! ------------
17! Perform namelist file check. The program is independent from PALM and used by
18! the shell script "mrun" to check the parameter files (e.g. p3d, p3df...) b
19! efore the job is submitted/started. Source code from the PALM model in used in
20! check_namelist_files by means of the cpp directive "__check". The compiled
21! program resides in the SCRIPTS folder as check_namelist_files.x.
22!------------------------------------------------------------------------------!
23
24
25    USE pegrid
26    USE control_parameters
27
28    IMPLICIT NONE
29
30
31!
32!-- Read number of processors and variable check_restart, which gives
33!-- information whether the p3d or the pd3f file shall be checked
34    READ (*,*,ERR=10,END=10)  numprocs, check_restart
3510  CONTINUE
36
37
38!
39!-- Read control parameters from NAMELIST files and read environment-variables1
40    CALL parin
41
42!
43!-- Determine processor topology and local array indices
44    CALL init_pegrid
45
46!
47!-- Generate grid parameters
48    CALL init_grid
49
50
51!-- Check control parameters and deduce further quantities   
52    CALL check_parameters
53
54
55
56 END PROGRAM check_namelist_files
Note: See TracBrowser for help on using the repository browser.