Skip to content
Snippets Groups Projects
Commit 2981dae1 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Christine 10/04/2014 : intrdeallocate INPRH/ACPRH

parent c28757ba
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/deallocate_model1.f90
+ 5
− 0
View file @ 2981dae1
...@@ -475,6 +475,11 @@ IF ( ASSOCIATED(XINPRS) .AND. KCALL == 3 ) THEN ...@@ -475,6 +475,11 @@ IF ( ASSOCIATED(XINPRS) .AND. KCALL == 3 ) THEN
DEALLOCATE(XACPRG) DEALLOCATE(XACPRG)
END IF END IF
! !
IF ( ASSOCIATED(XINPRH) .AND. KCALL == 3 ) THEN
DEALLOCATE(XINPRH)
DEALLOCATE(XACPRH)
END IF
!
!* 13b. Module MODD_ELEC$n !* 13b. Module MODD_ELEC$n
! !
IF ( ASSOCIATED(XNI_SDRYG) .AND. KCALL == 3 ) THEN IF ( ASSOCIATED(XNI_SDRYG) .AND. KCALL == 3 ) THEN
......
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