Ignore:
Timestamp:
2010-12-27T18:33:53+01:00 (10 years ago)
Author:
rblod
Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/par_kind.F90

    • Property svn:eol-style deleted
    r1152 r2528  
    44   !! Ocean :  define the kind of real for the whole model 
    55   !!====================================================================== 
    6    !! History : 
    7    !!   8.5   02/06  (G. Madec)  Original code 
    8    !!---------------------------------------------------------------------- 
    9    !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    10    !! $Id$  
    11    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
     6   !! History :  1.0  ! 2002-06  (G. Madec)  Original code 
     7   !!            3.3  ! 2010-12  (G. Madec)  add a standard length of character strings 
    128   !!---------------------------------------------------------------------- 
    139 
     
    1511   PRIVATE 
    1612 
    17    INTEGER, PUBLIC, PARAMETER ::    &  !: 
    18       jpbyt   = 8       ,           &  !: real size for mpp communications 
    19       jpbytda = 4       ,           &  !: real size in input data files 4 or 8 
    20       jpbi3e  = 4                      !: real size for T3E 
     13   INTEGER, PUBLIC, PARAMETER ::   jpbyt   = 8    !: real size for mpp communications 
     14   INTEGER, PUBLIC, PARAMETER ::   jpbytda = 4    !: real size in input data files 4 or 8 
    2115 
    2216   ! Number model from which the SELECTED_*_KIND are requested: 
     
    2721   !            exponent = 37     exponent = 307 
    2822 
    29    INTEGER, PUBLIC, PARAMETER ::        &  !: Floating point section 
    30       sp = SELECTED_REAL_KIND( 6, 37),  &  !: single precision (real 4) 
    31       dp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8) 
    32       wp = dp                              !: working precision 
     23   !                                                                !!** Floating point ** 
     24   INTEGER, PUBLIC, PARAMETER ::   sp = SELECTED_REAL_KIND( 6, 37)   !: single precision (real 4) 
     25   INTEGER, PUBLIC, PARAMETER ::   dp = SELECTED_REAL_KIND(12,307)   !: double precision (real 8) 
     26   INTEGER, PUBLIC, PARAMETER ::   wp = dp                              !: working precision 
    3327 
    34    INTEGER, PUBLIC, PARAMETER ::        &  !: Integer section 
    35       i4 = SELECTED_INT_KIND(9) ,       &  !: single precision (integer 4) 
    36       i8 = SELECTED_INT_KIND(14)           !: double precision (integer 8) 
     28   !                                                                !!** Integer ** 
     29   INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)        !: single precision (integer 4) 
     30   INTEGER, PUBLIC, PARAMETER ::   i8 = SELECTED_INT_KIND(14)        !: double precision (integer 8) 
     31    
     32   !                                                                !!** Integer ** 
     33   INTEGER, PUBLIC, PARAMETER ::   lc = 256                          !: Lenght of Character strings 
    3734 
    38 !!---------------------------------------------------------------------- 
     35   !!---------------------------------------------------------------------- 
     36   !! NEMO 3.3 , NEMO Consortium (2010) 
     37   !! $Id$  
     38   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     39   !!---------------------------------------------------------------------- 
    3940END MODULE par_kind 
Note: See TracChangeset for help on using the changeset viewer.