machine.f

Go to the documentation of this file.

 
      MODULE machine_post
 
      IMPLICIT NONE
      SAVE
      
      integer kind_io4 &
      ,kind_io8 &           
      ,kind_phys &          
      ,kind_rad &           
      ,kint_mpi             
      
      parameter(kind_rad = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
      parameter(kind_phys = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
      parameter(kind_io4 = 4)
      parameter(kind_io8 = 8)
      parameter(kint_mpi = 4)
 
      END MODULE machine_post