Changeset 13373 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/par_sed.F90

Timestamp:

2020-08-03T11:46:38+02:00 (4 years ago)

Author:

cetlod

Message:

TOP-05_Ethe_Agrif : 1st step of changes to successfully compile, see ticket #2508

File:

• NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/par_sed.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/par_sed.F90

@@ -20 +20 @@
       jp_sal   =>   jp_sal     !: indice of salintity
 
-   INTEGER, PARAMETER :: jpdta = 17
+   INTEGER, PUBLIC, PARAMETER :: jpdta = 17
 
    ! Vertical sediment geometry
-   INTEGER, PUBLIC   ::      &
-      jpksed   = 11 ,        &
-      jpksedm1 = 10
+   INTEGER, PUBLIC  :: jpksed  = 11 
+   INTEGER, PUBLIC  :: jpksedm1 
 
    ! sediment tracer species
-   INTEGER, PARAMETER ::    &
+   INTEGER, PUBLIC, PARAMETER ::    &
       jpsol =  8,           &  !: number of solid component
       jpwat = 10,           &   !: number of pore water component
@@ -36 +35 @@
    
    ! pore water components       
-   INTEGER, PARAMETER :: &
+   INTEGER, PUBLIC, PARAMETER :: &
       jwsil  = 1,        & !: silic acid
       jwoxy  = 2,        & !: oxygen
@@ -49 +48 @@
 
    ! solid components       
-   INTEGER, PARAMETER ::  &
+   INTEGER, PUBLIC, PARAMETER ::  &
       jsopal  = 1,        & !: opal sediment
       jsclay  = 2,        & !: clay
@@ -59 +58 @@
       jsfes   = 8           !: FeS
 
-   INTEGER, PARAMETER ::  &
+   INTEGER, PUBLIC, PARAMETER ::  &
       jptrased   = jpsol + jpwat , &
       jpdia3dsed = 2             , &