Skip to content
Snippets Groups Projects
Commit 9b3306b3 authored by Christine Lac's avatar Christine Lac
Browse files

Initialization of INDEP to 0

parent fd3b0bcd
No related branches found
No related tags found
No related merge requests found
...@@ -870,6 +870,7 @@ REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D ! ...@@ -870,6 +870,7 @@ REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D !
! O. Initialization of for sedimentation ! O. Initialization of for sedimentation
! !
IF (OSEDIC) PINPRC (:,:) = 0. IF (OSEDIC) PINPRC (:,:) = 0.
IF (LDEPOSC) PINDEP (:,:) = 0.
PINPRR (:,:) = 0. PINPRR (:,:) = 0.
PINPRR3D (:,:,:) = 0. PINPRR3D (:,:,:) = 0.
PINPRS (:,:) = 0. PINPRS (:,:) = 0.
...@@ -1317,6 +1318,7 @@ REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D ! ...@@ -1317,6 +1318,7 @@ REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
IF (OSEDIC) PINPRC (:,:) = 0. IF (OSEDIC) PINPRC (:,:) = 0.
IF (LDEPOSC) PINDEP (:,:) = 0.
PINPRR (:,:) = 0. PINPRR (:,:) = 0.
PINPRR3D (:,:,:) = 0. PINPRR3D (:,:,:) = 0.
PINPRS (:,:) = 0. PINPRS (:,:) = 0.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment