Changeset 5635973 in flexpart.git

Timestamp:

Nov 27, 2020, 9:57:54 AM (3 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

a4288fa

Parents:

f06b72a

Message:

Change of output format for trajectories.txt

Location:

src

Files:

• par_mod.f90 (modified) (3 diffs)
• plumetraj.f90 (modified) (1 diff)

src/par_mod.f90

@@ -133 +133 @@
   ! 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=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=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359  ! 0.5 degree 138 level
@@ -139 +139 @@
 
 ! GFS
-   ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138
-   ! integer :: nxshift=0 ! shift not fixed for the executable 
+   integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138
+   integer :: nxshift=0 ! shift not fixed for the executable 
 
 
@@ -205 +205 @@
   !**************************************************
 
-  integer,parameter :: maxpart=1000000
+  integer,parameter :: maxpart=100000
   integer,parameter :: maxspec=6
 

src/plumetraj.f90

@@ -216 +216 @@
   !******************************************
 
-      write(unitouttraj,'(i5,2x,i9,2x,2f9.4,4f8.1,f8.2,4f8.1,3f6.1,&
-           &5(2f8.3,f7.0,f6.1,f8.1))')&
+      write(unitouttraj,'(i5,2x,i9,2x,2f10.4,4f8.1,f8.2,4f8.1,3f6.1,&
+           &5(2f9.3,1x,f7.0,1x,f6.1,1x,f8.1))')&
            &j,itime-(ireleasestart(j)+ireleaseend(j))/2, &
            xcenter,ycenter,zcenter,topocenter,hmixcenter,tropocenter, &