Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
F
flexpart
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
5
Issues
5
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
flexpart
flexpart
Commits
3481cc18
Commit
3481cc18
authored
Nov 12, 2019
by
Ignacio Pisso
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
move license from headers to a different file
parent
adead089
Changes
157
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
157 changed files
with
27 additions
and
3276 deletions
+27
-3276
src/FLEXPART.f90
src/FLEXPART.f90
+0
-21
src/FLEXPART_MPI.f90
src/FLEXPART_MPI.f90
+0
-21
src/advance.f90
src/advance.f90
+0
-21
src/assignland.f90
src/assignland.f90
+0
-21
src/boundcond_domainfill.f90
src/boundcond_domainfill.f90
+0
-21
src/boundcond_domainfill_mpi.f90
src/boundcond_domainfill_mpi.f90
+0
-21
src/calcfluxes.f90
src/calcfluxes.f90
+0
-21
src/calcmatrix.f90
src/calcmatrix.f90
+0
-21
src/calcpar.f90
src/calcpar.f90
+0
-21
src/calcpar_nests.f90
src/calcpar_nests.f90
+0
-21
src/calcpv.f90
src/calcpv.f90
+0
-21
src/calcpv_nests.f90
src/calcpv_nests.f90
+0
-21
src/caldate.f90
src/caldate.f90
+0
-21
src/cbl.f90
src/cbl.f90
+0
-21
src/centerofmass.f90
src/centerofmass.f90
+0
-21
src/clustering.f90
src/clustering.f90
+0
-21
src/cmapf_mod.f90
src/cmapf_mod.f90
+0
-21
src/conccalc.f90
src/conccalc.f90
+0
-21
src/conccalc_mpi.f90
src/conccalc_mpi.f90
+0
-21
src/concoutput.f90
src/concoutput.f90
+0
-21
src/concoutput_inversion.f90
src/concoutput_inversion.f90
+0
-21
src/concoutput_inversion_nest.f90
src/concoutput_inversion_nest.f90
+0
-21
src/concoutput_mpi.f90
src/concoutput_mpi.f90
+0
-21
src/concoutput_nest.f90
src/concoutput_nest.f90
+0
-21
src/concoutput_nest_mpi.f90
src/concoutput_nest_mpi.f90
+0
-21
src/concoutput_surf.f90
src/concoutput_surf.f90
+0
-21
src/concoutput_surf_mpi.f90
src/concoutput_surf_mpi.f90
+0
-21
src/concoutput_surf_nest.f90
src/concoutput_surf_nest.f90
+0
-21
src/concoutput_surf_nest_mpi.f90
src/concoutput_surf_nest_mpi.f90
+0
-21
src/convect43c.f90
src/convect43c.f90
+0
-21
src/convmix.f90
src/convmix.f90
+0
-21
src/coordtrafo.f90
src/coordtrafo.f90
+0
-21
src/detectformat.f90
src/detectformat.f90
+0
-21
src/distance.f90
src/distance.f90
+0
-21
src/distance2.f90
src/distance2.f90
+0
-21
src/drydepokernel.f90
src/drydepokernel.f90
+0
-21
src/drydepokernel_nest.f90
src/drydepokernel_nest.f90
+0
-21
src/dynamic_viscosity.f90
src/dynamic_viscosity.f90
+0
-21
src/erf.f90
src/erf.f90
+0
-21
src/ew.f90
src/ew.f90
+0
-21
src/flux_mod.f90
src/flux_mod.f90
+0
-21
src/fluxoutput.f90
src/fluxoutput.f90
+0
-21
src/get_settling.f90
src/get_settling.f90
+0
-21
src/get_vdep_prob.f90
src/get_vdep_prob.f90
+0
-21
src/get_wetscav.f90
src/get_wetscav.f90
+0
-21
src/getfields.f90
src/getfields.f90
+0
-21
src/getfields_mpi.f90
src/getfields_mpi.f90
+0
-21
src/gethourlyOH.f90
src/gethourlyOH.f90
+0
-21
src/getrb.f90
src/getrb.f90
+0
-21
src/getrc.f90
src/getrc.f90
+0
-21
src/getvdep.f90
src/getvdep.f90
+0
-21
src/getvdep_nests.f90
src/getvdep_nests.f90
+0
-21
src/gridcheck_ecmwf.f90
src/gridcheck_ecmwf.f90
+0
-21
src/gridcheck_gfs.f90
src/gridcheck_gfs.f90
+0
-21
src/gridcheck_nests.f90
src/gridcheck_nests.f90
+0
-21
src/hanna.f90
src/hanna.f90
+0
-21
src/hanna1.f90
src/hanna1.f90
+0
-21
src/hanna_short.f90
src/hanna_short.f90
+0
-21
src/init_domainfill.f90
src/init_domainfill.f90
+0
-21
src/init_domainfill_mpi.f90
src/init_domainfill_mpi.f90
+0
-21
src/initial_cond_calc.f90
src/initial_cond_calc.f90
+0
-21
src/initial_cond_output.f90
src/initial_cond_output.f90
+0
-21
src/initial_cond_output_inversion.f90
src/initial_cond_output_inversion.f90
+0
-21
src/initialize.f90
src/initialize.f90
+0
-21
src/initialize_cbl_vel.f90
src/initialize_cbl_vel.f90
+0
-21
src/interpol_all.f90
src/interpol_all.f90
+0
-21
src/interpol_all_nests.f90
src/interpol_all_nests.f90
+0
-21
src/interpol_misslev.f90
src/interpol_misslev.f90
+0
-21
src/interpol_misslev_nests.f90
src/interpol_misslev_nests.f90
+0
-21
src/interpol_rain.f90
src/interpol_rain.f90
+0
-21
src/interpol_rain_nests.f90
src/interpol_rain_nests.f90
+0
-21
src/interpol_vdep.f90
src/interpol_vdep.f90
+0
-21
src/interpol_vdep_nests.f90
src/interpol_vdep_nests.f90
+0
-21
src/interpol_wind.f90
src/interpol_wind.f90
+0
-21
src/interpol_wind_nests.f90
src/interpol_wind_nests.f90
+0
-21
src/interpol_wind_short.f90
src/interpol_wind_short.f90
+0
-21
src/interpol_wind_short_nests.f90
src/interpol_wind_short_nests.f90
+0
-21
src/juldate.f90
src/juldate.f90
+0
-21
src/license.txt
src/license.txt
+27
-0
src/mean_mod.f90
src/mean_mod.f90
+0
-21
src/mpi_mod.f90
src/mpi_mod.f90
+0
-21
src/netcdf_output_mod.f90
src/netcdf_output_mod.f90
+0
-21
src/obukhov.f90
src/obukhov.f90
+0
-21
src/oh_mod.f90
src/oh_mod.f90
+0
-21
src/ohreaction.f90
src/ohreaction.f90
+0
-21
src/openouttraj.f90
src/openouttraj.f90
+0
-21
src/openreceptors.f90
src/openreceptors.f90
+0
-21
src/outg_mod.f90
src/outg_mod.f90
+0
-21
src/outgrid_init.f90
src/outgrid_init.f90
+0
-21
src/outgrid_init_nest.f90
src/outgrid_init_nest.f90
+0
-21
src/par_mod.f90
src/par_mod.f90
+0
-21
src/part0.f90
src/part0.f90
+0
-21
src/partdep.f90
src/partdep.f90
+0
-21
src/partoutput.f90
src/partoutput.f90
+0
-21
src/partoutput_average.f90
src/partoutput_average.f90
+0
-21
src/partoutput_average_mpi.f90
src/partoutput_average_mpi.f90
+0
-21
src/partoutput_mpi.f90
src/partoutput_mpi.f90
+0
-21
src/partoutput_short.f90
src/partoutput_short.f90
+0
-21
src/partoutput_short_mpi.f90
src/partoutput_short_mpi.f90
+0
-21
src/partpos_average.f90
src/partpos_average.f90
+0
-21
src/pbl_profile.f90
src/pbl_profile.f90
+0
-21
src/photo_O1D.f90
src/photo_O1D.f90
+0
-21
src/plumetraj.f90
src/plumetraj.f90
+0
-21
src/point_mod.f90
src/point_mod.f90
+0
-21
src/psih.f90
src/psih.f90
+0
-21
src/psim.f90
src/psim.f90
+0
-21
src/qvsat.f90
src/qvsat.f90
+0
-21
src/raerod.f90
src/raerod.f90
+0
-21
src/random_mod.f90
src/random_mod.f90
+0
-21
src/re_initialize_particle.f90
src/re_initialize_particle.f90
+0
-21
src/readOHfield.f90
src/readOHfield.f90
+0
-21
src/readageclasses.f90
src/readageclasses.f90
+0
-21
src/readavailable.f90
src/readavailable.f90
+0
-21
src/readcommand.f90
src/readcommand.f90
+0
-21
src/readdepo.f90
src/readdepo.f90
+0
-21
src/readlanduse.f90
src/readlanduse.f90
+0
-21
src/readoutgrid.f90
src/readoutgrid.f90
+0
-21
src/readoutgrid_nest.f90
src/readoutgrid_nest.f90
+0
-21
src/readpartpositions.f90
src/readpartpositions.f90
+0
-21
src/readpartpositions_mpi.f90
src/readpartpositions_mpi.f90
+0
-21
src/readpaths.f90
src/readpaths.f90
+0
-21
src/readreceptors.f90
src/readreceptors.f90
+0
-21
src/readreleases.f90
src/readreleases.f90
+0
-21
src/readspecies.f90
src/readspecies.f90
+0
-21
src/readwind_ecmwf.f90
src/readwind_ecmwf.f90
+0
-21
src/readwind_ecmwf_mpi.f90
src/readwind_ecmwf_mpi.f90
+0
-21
src/readwind_emos.f90
src/readwind_emos.f90
+0
-21
src/readwind_gfs.f90
src/readwind_gfs.f90
+0
-21
src/readwind_nests.f90
src/readwind_nests.f90
+0
-21
src/redist.f90
src/redist.f90
+0
-21
src/redist_mpi.f90
src/redist_mpi.f90
+0
-21
src/releaseparticles.f90
src/releaseparticles.f90
+0
-21
src/releaseparticles_mpi.f90
src/releaseparticles_mpi.f90
+0
-21
src/richardson.f90
src/richardson.f90
+0
-21
src/scalev.f90
src/scalev.f90
+0
-21
src/shift_field.f90
src/shift_field.f90
+0
-21
src/shift_field_0.f90
src/shift_field_0.f90
+0
-21
src/skplin.f90
src/skplin.f90
+0
-21
src/sort2.f90
src/sort2.f90
+0
-21
src/timemanager.f90
src/timemanager.f90
+0
-21
src/timemanager_mpi.f90
src/timemanager_mpi.f90
+0
-21
src/unc_mod.f90
src/unc_mod.f90
+0
-21
src/verttransform_ecmwf.f90
src/verttransform_ecmwf.f90
+0
-21
src/verttransform_gfs.f90
src/verttransform_gfs.f90
+0
-21
src/verttransform_nests.f90
src/verttransform_nests.f90
+0
-21
src/wetdepo.f90
src/wetdepo.f90
+0
-21
src/wetdepokernel.f90
src/wetdepokernel.f90
+0
-21
src/wetdepokernel_nest.f90
src/wetdepokernel_nest.f90
+0
-21
src/windalign.f90
src/windalign.f90
+0
-21
src/writeheader.f90
src/writeheader.f90
+0
-21
src/writeheader_nest.f90
src/writeheader_nest.f90
+0
-21
src/writeheader_nest_surf.f90
src/writeheader_nest_surf.f90
+0
-21
src/writeheader_surf.f90
src/writeheader_surf.f90
+0
-21
src/writeheader_txt.f90
src/writeheader_txt.f90
+0
-21
src/writeprecip.f90
src/writeprecip.f90
+0
-21
src/xmass_mod.f90
src/xmass_mod.f90
+0
-21
src/zenithangle.f90
src/zenithangle.f90
+0
-21
No files found.
src/FLEXPART.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
program
flexpart
!*****************************************************************************
...
...
src/FLEXPART_MPI.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
program
flexpart
!*****************************************************************************
...
...
src/advance.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
advance
(
itime
,
nrelpoint
,
ldt
,
up
,
vp
,
wp
,
&
usigold
,
vsigold
,
wsigold
,
nstop
,
xt
,
yt
,
zt
,
prob
,
icbt
)
! i i i/oi/oi/o
...
...
src/assignland.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
assignland
!*****************************************************************************
...
...
src/boundcond_domainfill.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
boundcond_domainfill
(
itime
,
loutend
)
! i i
!*****************************************************************************
...
...
src/boundcond_domainfill_mpi.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
boundcond_domainfill
(
itime
,
loutend
)
! i i
!*****************************************************************************
...
...
src/calcfluxes.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcfluxes
(
nage
,
jpart
,
xold
,
yold
,
zold
)
! i i i i i
!*****************************************************************************
...
...
src/calcmatrix.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcmatrix
(
lconv
,
delt
,
cbmf
,
metdata_format
)
! o i o
!*****************************************************************************
...
...
src/calcpar.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcpar
(
n
,
uuh
,
vvh
,
pvh
,
metdata_format
)
! i i i o
!*****************************************************************************
...
...
src/calcpar_nests.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcpar_nests
(
n
,
uuhn
,
vvhn
,
pvhn
,
metdata_format
)
! i i i o
!*****************************************************************************
...
...
src/calcpv.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcpv
(
n
,
uuh
,
vvh
,
pvh
)
! i i i o
!*****************************************************************************
...
...
src/calcpv_nests.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
calcpv_nests
(
l
,
n
,
uuhn
,
vvhn
,
pvhn
)
! i i i i o
!*****************************************************************************
...
...
src/caldate.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
caldate
(
juldate
,
yyyymmdd
,
hhmiss
)
! i o o
!*****************************************************************************
...
...
src/cbl.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
cbl
(
wp
,
zp
,
ust
,
wst
,
h
,
rhoa
,
rhograd
,
sigmaw
,
dsigmawdz
,
tlw
,
ptot
,
Q
,
phi
,
ath
,
bth
,
ol
,
flagrein
)
! i i i i i i i i i i o o o o o i o
...
...
src/centerofmass.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
centerofmass
(
xl
,
yl
,
n
,
xcenter
,
ycenter
)
! i i i o o
!*****************************************************************************
...
...
src/clustering.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
clustering
(
xl
,
yl
,
zl
,
n
,
xclust
,
yclust
,
zclust
,
fclust
,
rms
,
&
rmsclust
,
zrms
)
! i i i i o o o o o
...
...
src/cmapf_mod.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
! Changes to the routines by A. Stohl
! xi,xi0,eta,eta0 are double precision variables to avoid problems
! at poles
...
...
src/conccalc.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
conccalc
(
itime
,
weight
)
! i i
!*****************************************************************************
...
...
src/conccalc_mpi.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
conccalc
(
itime
,
weight
)
! i i
!*****************************************************************************
...
...
src/concoutput.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
concoutput
(
itime
,
outnum
,
gridtotalunc
,
wetgridtotalunc
,
&
drygridtotalunc
)
! i i o o
...
...
src/concoutput_inversion.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
concoutput_inversion
(
itime
,
outnum
,
gridtotalunc
,
wetgridtotalunc
,
&
drygridtotalunc
)
! i i o o
...
...
src/concoutput_inversion_nest.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
concoutput_inversion_nest
(
itime
,
outnum
)
! i i
!*****************************************************************************
...
...
src/concoutput_mpi.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *
! (at your option) any later version. *
! *
! FLEXPART is distributed in the hope that it will be useful, *
! but WITHOUT ANY WARRANTY; without even the implied warranty of *
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
! GNU General Public License for more details. *
! *
! You should have received a copy of the GNU General Public License *
! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *
!**********************************************************************
subroutine
concoutput
(
itime
,
outnum
,
gridtotalunc
,
wetgridtotalunc
,
&
drygridtotalunc
)
! i i o o
...
...
src/concoutput_nest.f90
View file @
3481cc18
!**********************************************************************
! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *
! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *
! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *
! *
! This file is part of FLEXPART. *
! *
! FLEXPART is free software: you can redistribute it and/or modify *
! it under the terms of the GNU General Public License as published by*
! the Free Software Foundation, either version 3 of the License, or *