Juan 10/02/2022:modeln.f90, Bug ZSEA pointer : ALLOCATED -> ASSOCIATED

aeec932d · ESCOBAR MUNOZ Juan · 7741b387 · aeec932d
Commit aeec932d authored 3 years ago by ESCOBAR MUNOZ Juan
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -2411,7 +2411,7 @@ IF (OEXIT) THEN
 END IF

 #ifndef MNH_OPENACC
-IF ( ALLOCATED( ZSEA ) ) DEALLOCATE( ZSEA )
+IF ( ASSOCIATED( ZSEA ) ) DEALLOCATE( ZSEA )
 DEALLOCATE( ZRWS )
 DEALLOCATE( ZPABST )
 #else