fabm_clean Subroutine

      subroutine fabm_clean()
         !! de-allocate all allocated arrays
      if (allocated(windspeed)) deallocate(windspeed)
      if (allocated(mole_fraction_of_carbon_dioxide_in_air))
     &    deallocate(mole_fraction_of_carbon_dioxide_in_air)
c      if (allocated(surface_downwelling_photosynthetic_radiative_flux))
c     &    deallocate(surface_downwelling_photosynthetic_radiative_flux)
      if (allocated(surface_swr_flux)) deallocate(surface_swr_flux)
      if (allocated(bottom_stress)) deallocate(bottom_stress)
      if (allocated(salt)) deallocate(salt)
      if (allocated(downwelling_photosynthetic_radiative_flux))
     &    deallocate(downwelling_photosynthetic_radiative_flux)
      if (allocated(rho_fabm)) deallocate(rho_fabm)
      end subroutine fabm_clean