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

Quentin 22/08/2023: bugfix SSO_DIR reading from PREP_PGD + PREP_IDEAL_CASE :...

Quentin 22/08/2023: bugfix SSO_DIR reading from PREP_PGD + PREP_IDEAL_CASE : prep_ideal calls init_pgd_surf_atm twice. In v9.0, XSSO_DIR now allocated at read_pgd_isban. At the second call of init_pgd_surf_atm>init_surf_atm, XSSO_DIR is already associated on nature points and then is not re-allocated at the full size of the domain as expected
parent 9c611f43
No related branches found
No related tags found
No related merge requests found
...@@ -127,6 +127,7 @@ YRECFM='SSO_ANIS' ...@@ -127,6 +127,7 @@ YRECFM='SSO_ANIS'
CALL READ_SURF(HPROGRAM,YRECFM,USS%XSSO_ANIS(:),IRESP) CALL READ_SURF(HPROGRAM,YRECFM,USS%XSSO_ANIS(:),IRESP)
WHERE (PSEA(:) == 1.) USS%XSSO_ANIS(:) = XUNDEF WHERE (PSEA(:) == 1.) USS%XSSO_ANIS(:) = XUNDEF
! !
IF (ASSOCIATED(USS%XSSO_DIR)) DEALLOCATE(USS%XSSO_DIR) ! For MesoNH PREP_IDEAL_CASE
IF(.NOT.ASSOCIATED(USS%XSSO_DIR)) ALLOCATE(USS%XSSO_DIR(KSIZE_FULL)) IF(.NOT.ASSOCIATED(USS%XSSO_DIR)) ALLOCATE(USS%XSSO_DIR(KSIZE_FULL))
YRECFM='SSO_DIR' YRECFM='SSO_DIR'
CALL READ_SURF(HPROGRAM,YRECFM,USS%XSSO_DIR(:),IRESP) CALL READ_SURF(HPROGRAM,YRECFM,USS%XSSO_DIR(:),IRESP)
......
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