Add files via upload

code/adjoint/cleanup_adj.f

@@ -0,0 +1,42 @@
+! $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