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

Last change on this file since 807 was 807, checked in by maronga, 10 years ago

new utility check_namelist_files implemented

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