ipe_cap/module_finalize_IPE.F90 at master · NOAA-clone/ipe_cap · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
!nm20140919: subroutine to finalize IPE
! DATE: 19 September, 2014
!********************************************
!***      Copyright 2014 NAOMI MARUYAMA   ***
!***      ALL RIGHTS RESERVED             ***
!********************************************
! LICENSE AGREEMENT Whole Atmosphere Model(WAM)-Ionosphere Plasmasphere Electrodynamics(IPE) model Interface
! DEVELOPER: Dr. Naomi Maruyama
! CONTACT INFORMATION:
! E-MAIL : Naomi.Maruyama@noaa.gov
! PHONE  : 303-497-4857
! ADDRESS: 325 Broadway, Boulder, CO 80305
!--------------------------------------------
!
module module_finalize_IPE
   implicit none

   private

   public :: finalize_IPE

  !-----------------------------------------------------------------------------
  contains
  !-----------------------------------------------------------------------------

  subroutine finalize_IPE (model,rc )
  use ESMF
  use nnt_types_module
  use module_decomp
  USE module_close_files,ONLY: close_files
  implicit none
!g  include "gptl.inc"
    type(ESMF_GridComp)  :: model
    integer :: rc
!nm20160723: gptl
  integer :: ret
!---
  call ESMF_LogWrite("sub-finalize_IPE start:", ESMF_LOGMSG_INFO, rc=rc)

!--- copied from driver_ipe_sms.f90

! DEallocate arrays
!g      ret = gptlstart ('allocate_arrays1')
      CALL ESMF_LogWrite("sub-finalize_IPE: allocate_arrays1", ESMF_LOGMSG_INFO, rc=rc)
      CALL allocate_arrays ( 1 )
!g      ret = gptlstop  ('allocate_arrays1')

! close all open files
!g      ret = gptlstart ('close_files')
      CALL ESMF_LogWrite("sub-finalize_IPE: close_files", ESMF_LOGMSG_INFO, rc=rc)
      CALL close_files ( )
!g      ret = gptlstop  ('close_files')


!g      ret = gptlstop  ('Total')
      CALL ESMF_LogWrite("sub-finalize_IPE: stop", ESMF_LOGMSG_INFO, rc=rc)
      call stop


      call nnt_stop('module_finalize_IPE.F90:L60',0,PPP_EXIT)
!---end copy
  call ESMF_LogWrite("sub-finalize_IPE finished:", ESMF_LOGMSG_INFO, rc=rc)

  rc = ESMF_SUCCESS

  end subroutine finalize_IPE
end module module_finalize_IPE