Commenting out deallocation of KPP related arrays

NOAA-GFDL · Apr 18, 2018 · dde5a59 · dde5a59
1 parent dc82c48
commit dde5a59
Showing 1 changed file with 13 additions and 10 deletions.
diff --git a/src/parameterizations/vertical/MOM_diabatic_driver.F90 b/src/parameterizations/vertical/MOM_diabatic_driver.F90
@@ -2424,16 +2424,19 @@ subroutine diabatic_driver_end(CS)
 
   call entrain_diffusive_end(CS%entrain_diffusive_CSp)
   call set_diffusivity_end(CS%set_diff_CSp)
-  if (CS%useKPP) then
-    if (allocated(CS%KPP_buoy_flux)) deallocate( CS%KPP_buoy_flux )
-    if (allocated(CS%KPP_temp_flux)) deallocate( CS%KPP_temp_flux )
-    if (allocated(CS%KPP_salt_flux)) deallocate( CS%KPP_salt_flux )
-  endif
-  if (CS%useKPP) then
-    if (allocated(CS%KPP_NLTheat)) deallocate( CS%KPP_NLTheat )
-    if (allocated(CS%KPP_NLTscalar)) deallocate( CS%KPP_NLTscalar )
-    call KPP_end(CS%KPP_CSp)
-  endif
+
+ ! GMM, commeting the following because it fails on Travis (gfortran)
+
+ ! if (CS%useKPP) then
+ !   if (allocated(CS%KPP_buoy_flux)) deallocate( CS%KPP_buoy_flux )
+ !   if (allocated(CS%KPP_temp_flux)) deallocate( CS%KPP_temp_flux )
+ !   if (allocated(CS%KPP_salt_flux)) deallocate( CS%KPP_salt_flux )
+ ! endif
+ ! if (CS%useKPP) then
+ !   if (allocated(CS%KPP_NLTheat)) deallocate( CS%KPP_NLTheat )
+ !   if (allocated(CS%KPP_NLTscalar)) deallocate( CS%KPP_NLTscalar )
+ !   call KPP_end(CS%KPP_CSp)
+ ! endif
 
   if (CS%use_tidal_mixing) call tidal_mixing_end(CS%tidal_mixing_CSp)