Skip to content
Snippets Groups Projects
Commit 3545e536 authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

C.Lac 10/2017 : bug for LIMA

parent 8f5cd3ef
No related branches found
No related tags found
No related merge requests found
...@@ -257,7 +257,7 @@ IF (ODEPOTREE) THEN ...@@ -257,7 +257,7 @@ IF (ODEPOTREE) THEN
IF (GDEP(JI,JJ,JK)) THEN IF (GDEP(JI,JJ,JK)) THEN
PRRS(JI,JJ,JK,2) = PRRS(JI,JJ,JK,2) + (ZWDEPR(JI,JJ,JK+1)-ZWDEPR(JI,JJ,JK))/ & PRRS(JI,JJ,JK,2) = PRRS(JI,JJ,JK,2) + (ZWDEPR(JI,JJ,JK+1)-ZWDEPR(JI,JJ,JK))/ &
(PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK)) (PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK))
IF ((HCLOUD=='C2R2') .OR. (HCLOUD=='KHKO')) THEN IF ((HCLOUD=='C2R2') .OR. (HCLOUD=='KHKO').OR. (HCLOUD=='LIMA')) THEN
PSVS(JI,JJ,JK,NSV_C2R2BEG+1) = PSVS(JI,JJ,JK,NSV_C2R2BEG+1) + & PSVS(JI,JJ,JK,NSV_C2R2BEG+1) = PSVS(JI,JJ,JK,NSV_C2R2BEG+1) + &
(ZWDEPS(JI,JJ,JK+1)-ZWDEPS(JI,JJ,JK))/(PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK)) (ZWDEPS(JI,JJ,JK+1)-ZWDEPS(JI,JJ,JK))/(PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK))
END IF END IF
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment