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

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

last commit documented

  • 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 808 2012-01-25 12:02:30Z 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!-- Read control parameters from NAMELIST files and read environment-variables1
39    CALL parin
40
41!
42!-- Determine processor topology and local array indices
43    CALL init_pegrid
44
45!
46!-- Generate grid parameters
47    CALL init_grid
48
49
50!
51!-- Check control parameters and deduce further quantities   
52    CALL check_parameters
53
54
55 END PROGRAM check_namelist_files
Note: See TracBrowser for help on using the repository browser.