Changeset 9240

Timestamp:

2018-01-15T19:19:18+01:00 (6 years ago)

Author:

cetlod

Message:

v3.6 stable : bugfix on PISCES, see ticket #2003

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90 (modified) (3 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

@@ -199 +199 @@
       REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records
       REAL(wp), DIMENSION(:), ALLOCATABLE :: rivinput
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zdust, zndepo, zriver, zcmask
+      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zriver, zcmask
       !
       CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files
@@ -267 +267 @@
       ! dust input from the atmosphere
       ! ------------------------------
+      sumdepsi  = 0._wp
       IF( ln_dust ) THEN 
          !
@@ -364 +365 @@
       ! nutrient input from dust
       ! ------------------------
+      nitdepinput = 0._wp
       IF( ln_ndepo ) THEN
          !