43 lines
1.4 KiB
Fortran
43 lines
1.4 KiB
Fortran
! $Id: cleanup_adj.f,v 1.3 2012/03/01 22:00:26 daven Exp $
|
|
SUBROUTINE CLEANUP_ADJ
|
|
!
|
|
!******************************************************************************
|
|
! Subroutine CLEANUP_ADJ deallocates the memory assigned to dynamic allocatable
|
|
! arrays in adjoint model routines (dkh, 06/12/09)
|
|
!
|
|
! NOTES:
|
|
! (1 ) Based on CLEANUP
|
|
! (2 ) Add support for CH4 (kjw, dkh, 02/12/12, adj32_023)
|
|
!******************************************************************************
|
|
!
|
|
! References to F90 modules
|
|
USE ADJ_ARRAYS_MOD, ONLY : CLEANUP_ADJ_ARRAYS
|
|
USE GLOBAL_CH4_ADJ_MOD, ONLY : CLEANUP_GLOBAL_CH4_ADJ
|
|
USE POPULATION_MOD, ONLY : CLEANUP_POPULATION_MOD
|
|
|
|
#if defined(EANET_OBS) || defined(EMEP_OBS) || defined(NADP_OBS)
|
|
USE N_DEPOSITION_OBS_MOD, ONLY : CLEANUP_NDEP
|
|
#endif
|
|
|
|
IMPLICIT NONE
|
|
|
|
!=================================================================
|
|
! CLEANUP_ADJ begins here!
|
|
!=================================================================
|
|
|
|
! Echo info
|
|
WRITE( 6, 100 )
|
|
100 FORMAT( ' - CLEANUP_ADJ: deallocating arrays now...' )
|
|
|
|
! Call cleanup routines from individual F90 modules
|
|
CALL CLEANUP_ADJ_ARRAYS
|
|
CALL CLEANUP_GLOBAL_CH4_ADJ
|
|
CALL CLEANUP_POPULATION_MOD
|
|
#if defined(EANET_OBS) || defined(EMEP_OBS) || defined(NADP_OBS)
|
|
CALL CLEANUP_NDEP
|
|
#endif
|
|
|
|
|
|
! Return to calling program
|
|
END SUBROUTINE CLEANUP_ADJ
|