Commit 5635973f authored by Espen Sollum's avatar Espen Sollum
Browse files

Change of output format for trajectories.txt

parent f06b72a3
...@@ -132,14 +132,14 @@ module par_mod ...@@ -132,14 +132,14 @@ module par_mod
! ECMWF ! ECMWF
! integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=359 ! 1.0 degree 92 level ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=359 ! 1.0 degree 92 level
integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=0 ! 1.0 degree 138 level ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=0 ! 1.0 degree 138 level
! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level
! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 0.5 degree 138 level ! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 0.5 degree 138 level
! integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0 ! CERA 2.0 degree 92 level ! integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0 ! CERA 2.0 degree 92 level
! GFS ! GFS
! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138
! integer :: nxshift=0 ! shift not fixed for the executable integer :: nxshift=0 ! shift not fixed for the executable
!********************************************* !*********************************************
...@@ -204,7 +204,7 @@ module par_mod ...@@ -204,7 +204,7 @@ module par_mod
! Maximum number of particles, species, and similar ! Maximum number of particles, species, and similar
!************************************************** !**************************************************
integer,parameter :: maxpart=1000000 integer,parameter :: maxpart=100000
integer,parameter :: maxspec=6 integer,parameter :: maxspec=6
real,parameter :: minmass=0.0001 real,parameter :: minmass=0.0001
......
...@@ -215,8 +215,8 @@ subroutine plumetraj(itime) ...@@ -215,8 +215,8 @@ subroutine plumetraj(itime)
! Write out results in trajectory data file ! Write out results in trajectory data file
!****************************************** !******************************************
write(unitouttraj,'(i5,2x,i9,2x,2f9.4,4f8.1,f8.2,4f8.1,3f6.1,& write(unitouttraj,'(i5,2x,i9,2x,2f10.4,4f8.1,f8.2,4f8.1,3f6.1,&
&5(2f8.3,f7.0,f6.1,f8.1))')& &5(2f9.3,1x,f7.0,1x,f6.1,1x,f8.1))')&
&j,itime-(ireleasestart(j)+ireleaseend(j))/2, & &j,itime-(ireleasestart(j)+ireleaseend(j))/2, &
xcenter,ycenter,zcenter,topocenter,hmixcenter,tropocenter, & xcenter,ycenter,zcenter,topocenter,hmixcenter,tropocenter, &
pvcenter,rmsdist,rms,zrmsdist,zrms,hmixfract,pvfract, & pvcenter,rmsdist,rms,zrmsdist,zrms,hmixfract,pvfract, &
......
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