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

PROGRAM check_namelist_files

!------------------------------------------------------------------------------!
! Current revisions:
! -----------------
!
!
! Former revisions:
! -----------------
! $Id: check_namelist_files.f90 808 2012-01-25 12:02:30Z maronga $
!
! 807 2012-01-25 11:53:51Z maronga
! Initial revision
!
! Description:
! ------------
! Perform namelist file check. The program is independent from PALM and used by 
! the shell script "mrun" to check the parameter files (e.g. p3d, p3df...) b
! efore the job is submitted/started. Source code from the PALM model in used in 
! check_namelist_files by means of the cpp directive "__check". The compiled
! program resides in the SCRIPTS folder as check_namelist_files.x.
!------------------------------------------------------------------------------!


    USE pegrid
    USE control_parameters

    IMPLICIT NONE


!
!-- Read number of processors and variable check_restart, which gives 
!-- information whether the p3d or the pd3f file shall be checked
    READ (*,*,ERR=10,END=10)  numprocs, check_restart
10  CONTINUE

!
!-- Read control parameters from NAMELIST files and read environment-variables1
    CALL parin

!
!-- Determine processor topology and local array indices
    CALL init_pegrid

!
!-- Generate grid parameters
    CALL init_grid


!
!-- Check control parameters and deduce further quantities    
    CALL check_parameters


 END PROGRAM check_namelist_files