Skip to content
Snippets Groups Projects
Commit ddddd986 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 19/01/2023: bugfix update XCIT lower/upper vertical bounds to avoid...

Quentin 19/01/2023: bugfix update XCIT lower/upper vertical bounds to avoid segfault computation in diag
parent ef07b401
No related branches found
No related tags found
No related merge requests found
...@@ -1084,6 +1084,10 @@ SELECT CASE ( HCLOUD ) ...@@ -1084,6 +1084,10 @@ SELECT CASE ( HCLOUD )
ENDIF ENDIF
! !
END SELECT END SELECT
! TODO: code a generic routine to update vertical lower and upper levels to 0, a
! specific value or to IKB or IKE and apply it to every output prognostic variable of physics
PCIT(:,:,1)=0.
PCIT(:,:,IKE+1)=0.
! !
IF(HCLOUD=='ICE3' .OR. HCLOUD=='ICE4' ) THEN IF(HCLOUD=='ICE3' .OR. HCLOUD=='ICE4' ) THEN
PINPRC3D=ZFPR(:,:,:,2) / CST%XRHOLW PINPRC3D=ZFPR(:,:,:,2) / CST%XRHOLW
......
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