end_scri Subroutine

private subroutine end_scri()

End of script

Arguments

None

Calls

proc~~end_scri~~CallsGraph proc~end_scri end_scri end_fftw3 end_fftw3 proc~end_scri->end_fftw3

Called by

proc~~end_scri~~CalledByGraph proc~end_scri end_scri proc~read_job read_job proc~read_job->proc~end_scri proc~prg_surf prg_surf proc~prg_surf->proc~read_job program~main main program~main->proc~prg_surf

Source Code

   subroutine end_scri()
      !! End of script
   implicit none

      close(SPY)

      close(STA)

      if ( allocated( PARAM%imp_acf   ) ) deallocate( PARAM%imp_acf   )
      if ( allocated( PARAM%acf_surf  ) ) deallocate( PARAM%acf_surf  )
      if ( allocated( PARAM%surf_LF   ) ) deallocate( PARAM%surf_LF   )
      if ( allocated( PARAM%surf_HF   ) ) deallocate( PARAM%surf_HF   )
      if ( allocated( PARAM%surf_msk  ) ) deallocate( PARAM%surf_msk  )
      if ( allocated( PARAM%surf      ) ) deallocate( PARAM%surf      )
      if ( allocated( PARAM%surf_copy ) ) deallocate( PARAM%surf_copy )
      if ( allocated( PARAM%vect_h    ) ) deallocate( PARAM%vect_h    )
      if ( allocated( PARAM%fhi       ) ) deallocate( PARAM%fhi       )
      if ( allocated( PARAM%order     ) ) deallocate( PARAM%order     )

      call end_fftw3()

   return
   endsubroutine end_scri