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
! 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
......
......@@ -103,8 +103,8 @@ subroutine verttransform(n,uuh,vvh,wwh,pvh)
!ZHG 2015 temporary variables for testing
real :: rcw(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) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
! character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
! character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
CHARACTER(LEN=3) :: aspec
integer :: virr=0
real :: tot_cloud_h
......
Markdown is supported
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