Changeset 15 for trunk/NEMO/OPA_SRC/par_kind.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/par_kind.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/par_kind.F90

@@ -13 +13 @@
    PRIVATE
 
-   INTEGER, PUBLIC, PARAMETER ::    &
+   INTEGER, PUBLIC, PARAMETER ::    &  !:
       jpbyt   = 8       ,           &  !: real size for mpp communications
       jpbytda = 4       ,           &  !: real size in input data files 4 or 8
@@ -25 +25 @@
    !            exponent = 37     exponent = 307
 
-   INTEGER, PUBLIC, PARAMETER ::        &  !  Floating point section
-      sp = SELECTED_REAL_KIND(6,37)  ,  &  !: single precision (real 4)
+   INTEGER, PUBLIC, PARAMETER ::        &  !: Floating point section
+      sp = SELECTED_REAL_KIND( 6, 37),  &  !: single precision (real 4)
       dp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8)
       wp = dp                              !: working precision
 
-   INTEGER, PUBLIC, PARAMETER ::        &  !  Integer section
+   INTEGER, PUBLIC, PARAMETER ::        &  !: Integer section
       i4 = SELECTED_INT_KIND(9) ,       &  !: single precision (integer 4)
       i8 = SELECTED_INT_KIND(14)           !: double precision (integer 8)