resolved error after deallocation

geco-bern · Apr 28, 2024 · 571f0fc · 571f0fc
1 parent ef7952a
commit 571f0fc
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/src/soiltemp_sitch.mod.f90 b/src/soiltemp_sitch.mod.f90
@@ -143,11 +143,8 @@ subroutine soiltemp( soil, dtemp, moy, doy )
       if (allocated(dtemp_pvy    )) deallocate( dtemp_pvy )
       if (allocated(wscal_pvy    )) deallocate( wscal_pvy )
       if (allocated(wscal_alldays)) deallocate( wscal_alldays )
-      dtemp_pvy(:) = dtemp(:)
     end if    
 
-    return
-
   end subroutine soiltemp