Ignore:
Timestamp:
2018-10-25T11:42:23+02:00 (2 years ago)
Author:
aumont
Message:

update of the sediment module + enhancement, bug correction in PISCES generating O2 negative values

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90

    r10068 r10222  
    1818   USE trcnam_pisces   !  PISCES namelist 
    1919   USE sms_pisces      !  PISCES Source Minus Sink variables 
     20   USE sedini          !  SEDIMENTS initialization routine 
    2021 
    2122   IMPLICIT NONE 
     
    269270        & CALL p4z_flx_init      !  gas exchange  
    270271 
     272      ! Initialization of the sediment model 
     273      IF( ln_sediment) THEN 
     274         CALL sed_init 
     275      ELSE 
     276         ALLOCATE( profsed(2) ) 
     277      ENDIF 
     278 
    271279      IF(lwp) WRITE(numout,*)  
    272280      IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of PISCES tracers done' 
Note: See TracChangeset for help on using the changeset viewer.