Commit 26f60397 authored by Espen Sollum's avatar Espen Sollum
Browse files

Set single precision deposition fields as default

parent 6a678e3f
...@@ -51,7 +51,7 @@ module par_mod ...@@ -51,7 +51,7 @@ module par_mod
! dp). sp is default, dp can be used for increased precision. ! dp). sp is default, dp can be used for increased precision.
!**************************************************************** !****************************************************************
integer,parameter :: dep_prec=dp integer,parameter :: dep_prec=sp
!*********************************************************** !***********************************************************
! Number of directories/files used for FLEXPART input/output ! Number of directories/files used for FLEXPART input/output
......
...@@ -103,8 +103,8 @@ subroutine verttransform(n,uuh,vvh,wwh,pvh) ...@@ -103,8 +103,8 @@ subroutine verttransform(n,uuh,vvh,wwh,pvh)
!ZHG 2015 temporary variables for testing !ZHG 2015 temporary variables for testing
real :: rcw(0:nxmax-1,0:nymax-1) real :: rcw(0:nxmax-1,0:nymax-1)
real :: rpc(0:nxmax-1,0:nymax-1) real :: rpc(0:nxmax-1,0:nymax-1)
character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/' ! character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH ! character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
CHARACTER(LEN=3) :: aspec CHARACTER(LEN=3) :: aspec
integer :: virr=0 integer :: virr=0
real :: tot_cloud_h real :: tot_cloud_h
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment