Changeset 26f6039 in flexpart.git


Ignore:
Timestamp:
Jan 26, 2016, 1:36:57 PM (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:
9484483
Parents:
6a678e3
Message:

Set single precision deposition fields as default

Location:
src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • src/par_mod.f90

    r6a678e3 r26f6039  
    5252  !****************************************************************
    5353
    54   integer,parameter :: dep_prec=dp
     54  integer,parameter :: dep_prec=sp
    5555
    5656  !***********************************************************
  • src/verttransform.f90

    r6a678e3 r26f6039  
    104104  real :: rcw(0:nxmax-1,0:nymax-1)
    105105  real :: rpc(0:nxmax-1,0:nymax-1)
    106   character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
    107   character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
     106  ! character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
     107  ! character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
    108108  CHARACTER(LEN=3)  :: aspec
    109109  integer :: virr=0
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG