diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90 index c2ec86f734c7c13bbd8412ffe34e26b2a073d299..275735ad4619a18591c04982befd70e0cc9d0b68 100644 --- a/src/MNH/resolved_cloud.f90 +++ b/src/MNH/resolved_cloud.f90 @@ -1084,12 +1084,13 @@ SELECT CASE ( HCLOUD ) ENDIF ! 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 +! 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. + PINPRC3D=ZFPR(:,:,:,2) / CST%XRHOLW PINPRR3D=ZFPR(:,:,:,3) / CST%XRHOLW PINPRS3D=ZFPR(:,:,:,5) / CST%XRHOLW