Changeset 10222 for NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90

Timestamp:

2018-10-25T11:42:23+02:00 (6 years ago)

Author:

aumont

Message:

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

File:

• NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90

@@ -18 +18 @@
    USE trcnam_pisces   !  PISCES namelist
    USE sms_pisces      !  PISCES Source Minus Sink variables
+   USE sedini          !  SEDIMENTS initialization routine
 
    IMPLICIT NONE
@@ -269 +270 @@
         & CALL p4z_flx_init      !  gas exchange 
 
+      ! Initialization of the sediment model
+      IF( ln_sediment) THEN
+         CALL sed_init
+      ELSE
+         ALLOCATE( profsed(2) )
+      ENDIF
+
       IF(lwp) WRITE(numout,*) 
       IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of PISCES tracers done'