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

Quentin 24/02/2023: bugfix, no apply remove_indices on gradient_m

parent 0ea80067
No related branches found
No related tags found
No related merge requests found
......@@ -742,8 +742,8 @@ IKT=SIZE(PY,3)
IKTB=1+JPVEXT_TURB
IKTE=IKT-JPVEXT_TURB
PGZ_M_W(:,:,:) = (PY(:,:,:)-PY(:,:,IKTB-KL:IKTE-KL)) &
/ PDZZ(:,:,:)
PGZ_M_W(:,:,IKTB:IKTE) = (PY(:,:,IKTB:IKTE)-PY(:,:,IKTB-KL:IKTE-KL)) &
/ PDZZ(:,:,IKTB:IKTE)
PGZ_M_W(:,:,KKU)= (PY(:,:,KKU)-PY(:,:,KKU-KL)) &
/ PDZZ(:,:,KKU)
PGZ_M_W(:,:,KKA)= PGZ_M_W(:,:,KKU) ! -999.
......
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