Skip to content
Snippets Groups Projects
Commit bde0aba4 authored by RIETTE Sébastien's avatar RIETTE Sébastien
Browse files

S. Riette 15/4/2022 typo in mnh_expand

parent dc9ef332
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_turb_ver_thermo_flux.F90
+ 2
− 2
View file @ bde0aba4
...@@ -757,11 +757,11 @@ ELSE ...@@ -757,11 +757,11 @@ ELSE
ZWORK1 = MZF( MZM(PETHETA,D%NKA, D%NKU, D%NKL) * ZFLXZ,D%NKA, D%NKU, D%NKL ) ZWORK1 = MZF( MZM(PETHETA,D%NKA, D%NKU, D%NKL) * ZFLXZ,D%NKA, D%NKU, D%NKL )
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
PTP(:,:,:) = PBETA(:,:,:) * ZWORK1(:,:,:) PTP(:,:,:) = PBETA(:,:,:) * ZWORK1(:,:,:)
!$mnh_end_expand_array(JI=0:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT) !$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT)
PTP(:,:,IKB)= PBETA(:,:,IKB) * PETHETA(:,:,IKB) * & PTP(:,:,IKB)= PBETA(:,:,IKB) * PETHETA(:,:,IKB) * &
0.5 * ( ZFLXZ(:,:,IKB) + ZFLXZ(:,:,IKB+D%NKL) ) 0.5 * ( ZFLXZ(:,:,IKB) + ZFLXZ(:,:,IKB+D%NKL) )
!$mnh_end_expand_array(JI=0:D%NIT,JJ=1:D%NJT) !$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT)
ELSE ELSE
ZWORK1 = MZF( ZFLXZ,D%NKA, D%NKU, D%NKL ) ZWORK1 = MZF( ZFLXZ,D%NKA, D%NKU, D%NKL )
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme