New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13369 for utils/tools/SIREN/src/kind.f90 – NEMO

Ignore:
Timestamp:
2020-07-31T10:50:52+02:00 (4 years ago)
Author:
jpaul
Message:

update: cf changelog inside documentation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • utils/tools/SIREN/src/kind.f90

    r12080 r13369  
    55! DESCRIPTION: 
    66!> This module defines the F90 kind parameter for common data types. 
    7 !>  
     7!> 
    88!> 
    99!> @author 
    … …  
    2525 
    2626   !                                                                !!** Floating point ** 
    27    ! SELECTED_REAL_KIND(P,R) returns the kind value of a real data type  
     27   ! SELECTED_REAL_KIND(P,R) returns the kind value of a real data type 
    2828   ! with decimal precision of at least P digits, exponent range of at least R 
    2929   INTEGER, PUBLIC, PARAMETER ::   sp = SELECTED_REAL_KIND( 6, 37)   !< single precision (real 4) 
    … …  
    3232 
    3333   !                                                                !!** Integer ** 
    34    ! SELECTED_INT_KIND(R) return the kind value of the smallest integer type  
     34   ! SELECTED_INT_KIND(R) return the kind value of the smallest integer type 
    3535   ! that can represent all values ranging ] -10^R , 10^R [ 
    36    INTEGER, PUBLIC, PARAMETER ::   i1 = SELECTED_INT_KIND( 1)        !< single precision (integer 1)  
    37    INTEGER, PUBLIC, PARAMETER ::   i2 = SELECTED_INT_KIND( 4)        !< single precision (integer 2)  
    38    INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)        !< single precision (integer 4)  
     36   INTEGER, PUBLIC, PARAMETER ::   i1 = SELECTED_INT_KIND( 1)        !< single precision (integer 1) 
     37   INTEGER, PUBLIC, PARAMETER ::   i2 = SELECTED_INT_KIND( 4)        !< single precision (integer 2) 
     38   INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)        !< single precision (integer 4) 
    3939   INTEGER, PUBLIC, PARAMETER ::   i8 = SELECTED_INT_KIND(14)        !< double precision (integer 8) 
    40     
     40 
    4141   !                                                                !!** Integer ** 
    4242   INTEGER, PUBLIC, PARAMETER ::   lc = 256                          !< Length of Character strings 
Note: See TracChangeset for help on using the changeset viewer.