diff --git a/src/MNH/spawn_zs.f90 b/src/MNH/spawn_zs.f90 index 830d2cb4939bb237ce277eba16be7afa87236829..e1f1ae59adabb302cf0dee893e261ee88b86851a 100644 --- a/src/MNH/spawn_zs.f90 +++ b/src/MNH/spawn_zs.f90 @@ -314,7 +314,7 @@ CALL BIKHARDT (XBMX1,XBMX2,XBMX3,XBMX4,XBMY1,XBMY2,XBMY3,XBMY4, & ! spurious cliffs near the coast (multiplication by xland during the ! iterative process). ! -IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN +!!$IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN ! !* allocations ! <<<<<<< spawn_zs.f90 @@ -630,7 +630,7 @@ IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN DEALLOCATE(ZZS2_C) DEALLOCATE(ZDZS_C) DEALLOCATE(ZZS1_C) -END IF +!!$END IF ! IF (PRESENT(PZS2_LS)) PZS2_LS(:,:)=ZZS2_LS(:,:) DEALLOCATE(ZZS2_LS)