Changeset fdc0f03 in flexpart.git for src/unc_mod.f90


Ignore:
Timestamp:
Jan 21, 2016, 10:48:22 AM (8 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
fddc6ec
Parents:
41d8574
Message:

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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/unc_mod.f90

    r8a65cb0 rfdc0f03  
    2222module unc_mod
    2323
     24  use par_mod, only:cp
     25
    2426  implicit none
    2527
    2628  real,allocatable ,dimension (:,:,:,:,:,:,:) :: gridunc
    2729  real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn
    28   real,allocatable, dimension (:,:,:,:,:,:) :: drygridunc
    29   real,allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
    30   real,allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
    31   real,allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
     30  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc
     31  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn
     32  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc
     33  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn
    3234
    3335! For sum of individual contributions, used for the MPI version
    34   real,allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
    35   real,allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
    36   real,allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
    37   real,allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
     36  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygridunc0
     37  real(cp),allocatable, dimension (:,:,:,:,:,:) :: drygriduncn0
     38  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgridunc0
     39  real(cp),allocatable, dimension (:,:,:,:,:,:) :: wetgriduncn0
    3840
    3941  real,allocatable, dimension (:,:,:,:,:) :: init_cond
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG