source: flexpart.git/src/unc_mod.f90 @ fdc0f03

10.4.1_peseiGFS_025bugfixes+enhancementsdevrelease-10release-10.4.1scaling-bugunivie
Last change on this file since fdc0f03 was fdc0f03, checked in by Espen Sollum ATMOS <eso@…>, 8 years ago

Code for cloud water should be correct if the total cw is stored in field clwc (old scheme) or in field qc (new scheme). Minor edits in some files.
  • Property mode set to 100644
File size: 2.2 KB
Line 
1!**********************************************************************
2! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
3! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
4! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
5!                                                                     *
6! This file is part of FLEXPART.                                      *
7!                                                                     *
8! FLEXPART is free software: you can redistribute it and/or modify    *
9! it under the terms of the GNU General Public License as published by*
10! the Free Software Foundation, either version 3 of the License, or   *
11! (at your option) any later version.                                 *
12!                                                                     *
13! FLEXPART is distributed in the hope that it will be useful,         *
14! but WITHOUT ANY WARRANTY; without even the implied warranty of      *
15! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
16! GNU General Public License for more details.                        *
17!                                                                     *
18! You should have received a copy of the GNU General Public License   *
19! along with FLEXPART.  If not, see <http://www.gnu.org/licenses/>.   *
20!**********************************************************************
21
22module unc_mod
23
24  use par_mod, only:cp
25
26  implicit none
27
28  real,allocatable ,dimension (:,:,:,:,:,:,:) :: gridunc
29  real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn
30  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc
31  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
32  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
33  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
34
35! For sum of individual contributions, used for the MPI version
36  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
37  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
38  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
39  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
40
41  real,allocatable, dimension (:,:,:,:,:) :: init_cond
42
43end module unc_mod
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG