Skip to content
Snippets Groups Projects
Commit b469195e authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 28/02/2022:ZSOLVER/qlap.f90, Bug , Missing MNH_MEM_POSITION_PIN

parent d85a2789
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 0 deletions
src/ZSOLVER/qlap.f90
+ 1
− 0
View file @ b469195e
...@@ -490,6 +490,7 @@ GEAST = ( HLBCX(2) /= 'CYCL' .AND. LEAST_ll() ) ...@@ -490,6 +490,7 @@ GEAST = ( HLBCX(2) /= 'CYCL' .AND. LEAST_ll() )
GSOUTH = ( HLBCY(1) /= 'CYCL' .AND. LSOUTH_ll() ) GSOUTH = ( HLBCY(1) /= 'CYCL' .AND. LSOUTH_ll() )
GNORTH = ( HLBCY(2) /= 'CYCL' .AND. LNORTH_ll() ) GNORTH = ( HLBCY(2) /= 'CYCL' .AND. LNORTH_ll() )
! !
CALL MNH_MEM_POSITION_PIN()
CALL MNH_MEM_GET( ZU, IIU, IJU, IKU ) CALL MNH_MEM_GET( ZU, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZV, IIU, IJU, IKU ) CALL MNH_MEM_GET( ZV, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZW, IIU, IJU, IKU ) CALL MNH_MEM_GET( ZW, IIU, IJU, IKU )
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

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