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 13373 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED – NEMO

Ignore:
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

Location:
NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED
Files:
8 edited

Legend:

Unmodified
Added
Removed

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

    r13237 r13373  
    88   !!---------------------------------------------------------------------- 
    99   USE par_sed 
     10   USE par_trc , ONLY : rtrn  => rtrn 
     11   USE par_pisces 
    1012   USE timing 
    11    USE par_trc 
    1213 
    1314   USE dom_oce , ONLY :   glamt     =>   glamt          !: longitude of t-point (degre) 

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

    r10222 r13373  
    2020      jp_sal   =>   jp_sal     !: indice of salintity 
    2121 
    22    INTEGER, PARAMETER :: jpdta = 17 
     22   INTEGER, PUBLIC, PARAMETER :: jpdta = 17 
    2323 
    2424   ! Vertical sediment geometry 
    25    INTEGER, PUBLIC   ::      & 
    26       jpksed   = 11 ,        & 
    27       jpksedm1 = 10 
     25   INTEGER, PUBLIC  :: jpksed  = 11  
     26   INTEGER, PUBLIC  :: jpksedm1  
    2827 
    2928   ! sediment tracer species 
    30    INTEGER, PARAMETER ::    & 
     29   INTEGER, PUBLIC, PARAMETER ::    & 
    3130      jpsol =  8,           &  !: number of solid component 
    3231      jpwat = 10,           &   !: number of pore water component 
    … …  
    3635    
    3736   ! pore water components        
    38    INTEGER, PARAMETER :: & 
     37   INTEGER, PUBLIC, PARAMETER :: & 
    3938      jwsil  = 1,        & !: silic acid 
    4039      jwoxy  = 2,        & !: oxygen 
    … …  
    4948 
    5049   ! solid components        
    51    INTEGER, PARAMETER ::  & 
     50   INTEGER, PUBLIC, PARAMETER ::  & 
    5251      jsopal  = 1,        & !: opal sediment 
    5352      jsclay  = 2,        & !: clay 
    … …  
    5958      jsfes   = 8           !: FeS 
    6059 
    61    INTEGER, PARAMETER ::  & 
     60   INTEGER, PUBLIC, PARAMETER ::  & 
    6261      jptrased   = jpsol + jpwat , & 
    6362      jpdia3dsed = 2             , & 

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

    r10425 r13373  
    77   !!        !  06-12  (C. Ethe)  Orignal 
    88   !!---------------------------------------------------------------------- 
    9    USE par_sed 
    109   USE oce_sed 
    1110   USE in_out_manager 
    … …  
    6362   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::  solcp      !: solid sediment data at given time-step 
    6463   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::  solcp0     !: solid sediment data at initial time 
    65    REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::  trc_dta 
    6664   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::  diff 
    6765 

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

    r10222 r13373  
    1010   !!---------------------------------------------------------------------- 
    1111   !! * Modules used 
     12   USE par_oce 
    1213   USE par_sed 
    13    USE dom_oce 
    14    USE sed 
     14   USE in_out_manager, ONLY : ln_timing 
     15   USE timing 
    1516 
    1617   IMPLICIT NONE 

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

    r13295 r13373  
    66   !!====================================================================== 
    77   !!   modules used 
     8   USE par_sed 
    89   USE sed     ! sediment global variable 
    910   USE sedarr 

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

    r13295 r13373  
    99   !!---------------------------------------------------------------------- 
    1010   !! * Modules used 
     11   USE par_trc        ! need jptra, number of passive tracers 
     12   USE par_sed 
    1113   USE sed     ! sediment global variable 
    1214   USE sed_oce 

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

    r12489 r13373  
    44   !!         Sediment diagnostics :  write sediment output files 
    55   !!====================================================================== 
     6   USE par_sed 
    67   USE sed 
    78   USE sedarr 

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

    r13295 r13373  
    9191               ! 
    9292               jl = n_trc_index(jn)  
    93                CALL trc_dta( kt, Kmm, sf_trcdta(jl), rf_trfac(jl), ztrcdta )   ! read tracer data at nit000 
     93               CALL trc_dta( kt, jl, ztrcdta )   ! read tracer data at nit000 
    9494               ! 
    9595               DO_2D( 1, 1, 1, 1 ) 
    … …  
    108108         WRITE(charout, FMT="('dmp ')") 
    109109         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    110          CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     110         CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 
    111111      ENDIF 
    112112      ! 
Note: See TracChangeset for help on using the changeset viewer.