Changeset 9539 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES

Timestamp:

2018-05-03T11:21:13+02:00 (6 years ago)

Author:

cetlod

Message:

dev_merge_2017 : validation of Offline configurations

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90

@@ -119 +119 @@
       IF( ln_dust ) THEN
          !                                              
-         ALLOCATE( zsidep(jpi,jpj) )
-         ALLOCATE( zpdep(jpi,jpj,jpk), zirondep(jpi,jpj,jpk) )
+         ALLOCATE( zsidep(jpi,jpj), zpdep(jpi,jpj,jpk), zirondep(jpi,jpj,jpk) )
          !                                              ! Iron and Si deposition at the surface
          IF( ln_solub ) THEN
@@ -138 +137 @@
          !                                              ! Iron solubilization of particles in the water column
          tra(:,:,1,jpsil) = tra(:,:,1,jpsil) + zsidep  (:,:)
-         tra(:,:,:,jppo4) = tra(:,:,:,jppo4) + zpdep   (:,:,:)
-         tra(:,:,:,jpfer) = tra(:,:,:,jpfer) + zirondep(:,:,:) 
+         DO jk = 1, jpkm1
+            tra(:,:,jk,jppo4) = tra(:,:,jk,jppo4) + zpdep   (:,:,jk)
+            tra(:,:,jk,jpfer) = tra(:,:,jk,jpfer) + zirondep(:,:,jk) 
+         ENDDO
          ! 
          IF( lk_iomput ) THEN
@@ -149 +150 @@
             ENDIF
          ENDIF
-         DEALLOCATE( zsidep )
-         DEALLOCATE( zpdep, zirondep )
+         DEALLOCATE( zsidep, zpdep, zirondep )
          !                                              
       ENDIF