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 15548 for NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/TOP/PISCES/SED/sedinitrc.F90 – NEMO

Ignore:
Timestamp:
2021-11-28T18:59:49+01:00 (3 years ago)
Author:
gsamson
Message:

update branch to the head of the trunk (r15547); ticket #2632

Location:
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette@14244        sette 
         11^/utils/CI/sette@HEAD        sette 
         12 

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/TOP/PISCES/SED/sedinitrc.F90

    r12377 r15548  
    1010   !! * Modules used 
    1111   USE sed     ! sediment global variable 
    12    USE sed_oce 
    1312   USE sedini 
    1413   USE seddta 
    … …  
    1716   USE sedchem 
    1817   USE sedarr 
     18   USE sed_oce 
    1919   USE lib_mpp         ! distribued memory computing library 
    2020 
    … …  
    5050      !!        !  06-07  (C. Ethe)  Re-organization 
    5151      !!---------------------------------------------------------------------- 
    52       INTEGER, INTENT(in)  ::  Kbb, Kmm      ! time level indices 
     52      INTEGER, INTENT(in) ::   Kbb, Kmm  ! time level indices 
     53 
    5354      INTEGER :: ji, jj, ikt 
    5455      !!---------------------------------------------------------------------- 
    … …  
    8687      !!        !  06-07  (C. Ethe)  original 
    8788      !!---------------------------------------------------------------------- 
    88       INTEGER, INTENT(in)  ::  Kbb, Kmm      ! time level indices 
    8989  
     90      INTEGER, INTENT(in) ::   Kbb, Kmm  ! time level indices 
     91 
    9092      ! local variables 
    91       INTEGER :: & 
    92          ji, jk, zhipor 
     93      INTEGER :: ji, jk, zhipor 
    9394 
    9495      !-------------------------------------------------------------------- 
    … …  
    134135      ! Initialization of chemical constants 
    135136      CALL sed_chem ( nitsed000 ) 
    136  
    137       ! Stores initial sediment data for mass balance calculation 
    138       pwcp0 (1:jpoce,1:jpksed,1:jpwat ) = pwcp (1:jpoce,1:jpksed,1:jpwat )  
    139       solcp0(1:jpoce,1:jpksed,1:jpsol ) = solcp(1:jpoce,1:jpksed,1:jpsol)  
    140137 
    141138      ! Conversion of [h+] in mol/Kg to get it in mol/l ( multiplication by density) 
Note: See TracChangeset for help on using the changeset viewer.