- Timestamp:
- 2018-05-03T11:21:13+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r9125 r9539 119 119 IF( ln_dust ) THEN 120 120 ! 121 ALLOCATE( zsidep(jpi,jpj) ) 122 ALLOCATE( zpdep(jpi,jpj,jpk), zirondep(jpi,jpj,jpk) ) 121 ALLOCATE( zsidep(jpi,jpj), zpdep(jpi,jpj,jpk), zirondep(jpi,jpj,jpk) ) 123 122 ! ! Iron and Si deposition at the surface 124 123 IF( ln_solub ) THEN … … 138 137 ! ! Iron solubilization of particles in the water column 139 138 tra(:,:,1,jpsil) = tra(:,:,1,jpsil) + zsidep (:,:) 140 tra(:,:,:,jppo4) = tra(:,:,:,jppo4) + zpdep (:,:,:) 141 tra(:,:,:,jpfer) = tra(:,:,:,jpfer) + zirondep(:,:,:) 139 DO jk = 1, jpkm1 140 tra(:,:,jk,jppo4) = tra(:,:,jk,jppo4) + zpdep (:,:,jk) 141 tra(:,:,jk,jpfer) = tra(:,:,jk,jpfer) + zirondep(:,:,jk) 142 ENDDO 142 143 ! 143 144 IF( lk_iomput ) THEN … … 149 150 ENDIF 150 151 ENDIF 151 DEALLOCATE( zsidep ) 152 DEALLOCATE( zpdep, zirondep ) 152 DEALLOCATE( zsidep, zpdep, zirondep ) 153 153 ! 154 154 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.