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

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

Bugfixes for namelist file check

  • Property svn:keywords set to Id
File size: 1.5 KB
Line 
1PROGRAM check_namelist_files
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6! Added call to init_cloud_physics
7!
8! Former revisions:
9! -----------------
10! $Id: check_namelist_files.f90 845 2012-03-07 10:23:05Z 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!-- Check absolute temperature and pressure. Delete this call in case that
56!-- init_3d_model is compiled for the parameter file check
57    CALL init_cloud_physics
58
59 END PROGRAM check_namelist_files
Note: See TracBrowser for help on using the repository browser.