Skip to content

Commit 218feea

Browse files
heikokleinheikoklein
committed
putting SNAP under GPL license
1 parent 9326930 commit 218feea

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

96 files changed

+2339
-0
lines changed

‎AUTHORS

+4
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
Anstein Foss
2+
Jørgen Saltbones
3+
Jerzy Bartnicki
4+
Heiko Klein

‎COPYING

+623
Large diffs are not rendered by default.

‎README.md

+61
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
# SNAP
2+
3+
SNAP, the Severe Nuclear Accident Programme is a lagrangian type
4+
atmospheric dispersion model specialized on modelling dispersion
5+
of radioactive debris.
6+
7+
8+
## Meteorological input fields
9+
10+
SNAP needs meteorological driver data from NWP models in sigma or
11+
eta-hybrid model-levels, converted to netcdf format. The minimum
12+
list of parameters are in surface layer:
13+
14+
* surface-air-pressure
15+
* precipitation (eventually split into convective and large-scale)
16+
* x- and y-wind-10m
17+
18+
And in model layers:
19+
20+
* x- and y-wind
21+
* air-temperature or potential-temperature
22+
* ap and b hybrid level values, or sigma level values
23+
24+
Parameter names can be specified in src/common/readfields_nc.f.
25+
26+
27+
## Dependencies
28+
29+
SNAP requires at least the following libraries to be installed for
30+
compilation
31+
32+
* fortran77/90 compiler, e.g. gfortran or ifort
33+
* NetCDF (netcdf > 4.1.1)
34+
* NetCDF-fortran
35+
36+
37+
38+
## Installation
39+
40+
Create a file `current.mk` in the `src` directory. Use e.g the file `ubuntuXenail.mk`
41+
as template. Most important are the NCDIR and
42+
the BINDIR where final files will be installed.
43+
THE MIINC and MILIB should be uncommented.
44+
45+
In the `src` directory run then:
46+
47+
make install
48+
49+
This will install `bsnap_naccident` in the `BINDIR`. To run SNAP use
50+
the command
51+
52+
bsnap_naccident snap.input
53+
54+
`snap.input` examples can be found in the directory `src/naccident/examples/`
55+
56+
57+
## License
58+
59+
SNAP is licensed under the GPL. Please see COPYING for more information.
60+
61+

‎src/common/allocateFields.F

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine allocateFields
219
use particleML
320
use fileInfoML

‎src/common/argoswrite.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine argoswrite(iunit,name,iparam,itimeargos,nx,ny,dblfield)
219
c
320
#if defined(DRHOOK)

‎src/common/bldp.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine bldp
219
c
320
c Purpose: Compute boundary layer top and height

‎src/common/c2fgetarg.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine c2fgetarg(iarg,carg)
219
c
320
c SET arguments from C/C++ (main) program (iarg=-1,-2,-3,...)

‎src/common/c2fgetvar.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine c2fgetvar(nvar,var,nilarg,ilarg,iprint,ierror)
219
c
320
c PURPOSE: Search for Environment variables and Command line arguments

‎src/common/checkDomain.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine checkDomain(np)
219
c Purpose:
320
c check if particle is inside domain (set active = .false. if outside)

‎src/common/compheight.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine compheight
219
c
320
c Purpose: Compute height of model levels and thickness of model layers

‎src/common/copyfield.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine copyfield(fromfield,tofield,nx,ny,nz)
219
c
320
implicit none

‎src/common/dateCalc.F90

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
module DateCalc
219
implicit none
320
public timeGM

‎src/common/decay.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine decay(n)
219
c
320
c Purpose: Decrease radioactive contents due to decay

‎src/common/decayDeps.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine decayDeps(tstep)
219
c
320
c Purpose: Decrease radioactive contents of deposition fields

‎src/common/drydep1.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine drydep1(n)
219
use particleML
320
c

‎src/common/drydep2.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine drydep2(tstep,n)
219
use particleML
320
c

‎src/common/edcomp.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine edcomp(nx,ny,nz,u,v,edot,ps,xmd2h,ymd2h,
219
+ ahalf,bhalf,vhalf,
320
+ uu,vv,dpsdt,edoth)

‎src/common/ensemble.f

+17
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,20 @@
1+
! SNAP: Servere Nuclear Accident Programme
2+
! Copyright (C) 1992-2017 Norwegian Meteorological Institute
3+
!
4+
! This file is part of SNAP. SNAP is free software: you can
5+
! redistribute it and/or modify it under the terms of the
6+
! GNU General Public License as published by the
7+
! Free Software Foundation, either version 3 of the License, or
8+
! (at your option) any later version.
9+
!
10+
! This program is distributed in the hope that it will be useful,
11+
! but WITHOUT ANY WARRANTY; without even the implied warranty of
12+
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+
! GNU General Public License for more details.
14+
!
15+
! You should have received a copy of the GNU General Public License
16+
! along with this program. If not, see <https://www.gnu.org/licenses/>.
17+
!
118
subroutine ensemble(icall,itime,tf1,tf2,tnow,istep,nstep,nsteph,
219
+ np)
320
use particleML

0 commit comments

Comments
 (0)