Commit b064b5b9 authored by dingwell's avatar dingwell
Browse files

Started indenting main program

Some changes in par_mod.f90
(This is mainly for personal use)
parent 271e9d41
......@@ -20,7 +20,7 @@
!* You should have received a copy of the GNU General Public License *
!* along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!***********************************************************************
program flexwrf
program flexwrf
!*******************************************************************************
! *
! This is the Lagrangian Particle Dispersion Model FLEXPART_WRF. *
......@@ -284,14 +284,15 @@
!********************************
! endif !if condition on myid
! call MPI_BARRIER(MPI_COMM_WORLD,ierr)
if (option_verbose.ge.1) write(*,*) "Starting timemanager"
call timemanager(mts)
call timemanager(mts)
write(*,'(/a/)') 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY ' // &
'COMPLETED A FLEXPART_WRF MODEL RUN!'
write(*,'(/a/)') 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY ' // &
'COMPLETED A FLEXPART_WRF MODEL RUN!'
! call MPI_FINALIZE ( ierr )
! call MPI_FINALIZE ( ierr )
end program flexwrf
......@@ -124,7 +124,7 @@ module par_mod
!integer,parameter :: nxmax=364,nymax=244,nuvzmax=45,nwzmax=45,nzmax=45
!integer,parameter :: nxmax=454,nymax=334,nuvzmax=45,nwzmax=45,nzmax=45
integer,parameter :: nxmax=334,nymax=334,nuvzmax=61,nwzmax=61,nzmax=61
integer,parameter :: nxmax=250,nymax=190,nuvzmax=61,nwzmax=61,nzmax=61
!integer,parameter :: nxmax=182,nymax=182,nuvzmax=61,nwzmax=61,nzmax=61
!integer,parameter :: nxmax=1081,nymax=260,nuvzmax=89,nwzmax=89,nzmax=89
......@@ -158,7 +158,7 @@ module par_mod
!*********************************************
!integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
integer,parameter :: maxnests=2,nxmaxn=312,nymaxn=312
integer,parameter :: maxnests=2,nxmaxn=400,nymaxn=283
!integer,parameter :: maxnests=1,nxmaxn=312,nymaxn=312
! maxnests maximum number of nested grids
......@@ -209,7 +209,7 @@ module par_mod
! Maximum number of particles, species, and similar
!**************************************************
integer :: maxpart=1
integer :: maxpart=1 ! AD: This is no longer a parameter! Shouldn't it be in com_mod?
integer,parameter :: maxspec=11
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment