Skip to content

Commit

Permalink
Simplify machine.F and remove unused types.
Browse files Browse the repository at this point in the history
  • Loading branch information
@SamuelTrahanNOAA
SamuelTrahanNOAA committed May 24, 2022
1 parent 828f168 commit d4d0b71
Showing 1 changed file with 10 additions and 28 deletions.
38 changes: 10 additions & 28 deletions physics/machine.F
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,42 +6,24 @@ module machine

implicit none

#ifndef SINGLE_PREC
integer, parameter :: kind_io4 = 4, kind_io8 = 8 , kind_ior = 8 &
&, kind_evod = 8, kind_dbl_prec = 8 &
&, kind_sngl_prec = 4
# ifdef __PGI
&, kind_qdt_prec = 8 &
# else
&, kind_qdt_prec = 16 &
# endif
&, kind_rad = 8 &
&, kind_phys = 8 ,kind_taum=8 &
&, kind_grid = 8 &
&, kind_REAL = 8 &! used in cmp_comm
&, kind_LOGICAL = 4 &
&, kind_INTEGER = 4 ! -,,-

#ifdef SINGLE_PREC
integer, parameter :: kind_rad = kind_sngl_prec &
&, kind_phys = kind_sngl_prec &
&, kind_grid = kind_dbl_prec &! atmos_cubed_sphere requres kind_grid=8
&, kind_REAL = kind_sngl_prec ! used in cmp_comm
#else
integer, parameter :: kind_io4 = 4, kind_io8 = 8 , kind_ior = 8 &
&, kind_evod = 4, kind_dbl_prec = 8 &
&, kind_sngl_prec = 4
# ifdef __PGI
&, kind_qdt_prec = 8 &
# else
&, kind_qdt_prec = 16 &
# endif
&, kind_rad = 4 &
&, kind_phys = 4 ,kind_taum=4 &
&, kind_grid = 8 &! atmos_cubed_sphere requres kind_grid=8
&, kind_REAL = 4 &! used in cmp_comm
&, kind_LOGICAL = 4 &
&, kind_INTEGER = 4 ! -,,-

integer, parameter :: kind_rad = kind_dbl_prec &
&, kind_phys = kind_dbl_prec &
&, kind_grid = kind_dbl_prec &! atmos_cubed_sphere requres kind_grid=8
&, kind_REAL = kind_dbl_prec ! used in cmp_comm
#endif

#ifdef OVERLOAD_R4
integer, parameter :: kind_dyn = 4
integer, parameter :: kind_dyn = 4
#else
integer, parameter :: kind_dyn = 8
#endif
Expand Down

0 comments on commit d4d0b71

Please sign in to comment.