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

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:

• src/par_mod.f90 (modified) (1 diff)

src/par_mod.f90

@@ -42 +42 @@
   !****************************************************************
   ! Parameter defining KIND parameter for double/single precision
+  ! 'cp' sets the precision for some internal calculations (sp or dp),
+  ! sp is default but dp can be used for increased precision.
+  ! WARNING: for now, do not use 'dp'
   !****************************************************************
 
   integer,parameter :: dp=selected_real_kind(P=15)
   integer,parameter :: sp=selected_real_kind(6)
-
+  integer,parameter :: cp=sp ! sp is default
 
   !***********************************************************