source: CPL/oasis3/trunk/src/mod/oasis3/src/dealloc.f90 @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 1.6 KB
Line 
1SUBROUTINE dealloc
2!
3!**** DEALLOC
4!
5!     Purpose:
6!       Deallocate arrays defined in the modules
7!
8!     Interface:
9!       none
10!   
11!     Method:
12!       Deallocation of arrays allocated in "inialloc".       
13!
14!     External:
15!       none
16!
17!     Files:
18!       none
19!   
20!     References:
21!
22!     History:
23!     --------
24!       Version   Programmer     Date        Description
25!       ------------------------------------------------
26!       2.5       A.Caubel       2002/03/18  created
27!
28!*-----------------------------------------------------------------------
29!
30!** + DECLARATIONS
31!
32!** ++ Use of modules
33!
34  USE mod_parameter
35!
36!*-----------------------------------------------------------------------
37  IF (lg_oasis_field) THEN 
38!
39!** + Module anais
40!
41   CALL dealloc_anais
42!
43!** + Module analysis
44!
45   CALL dealloc_analysis
46!
47!** + Module coast
48!
49   CALL dealloc_coast
50!
51!** + Module extrapol
52!
53   CALL dealloc_extrapol 
54!
55!** + Module memory
56!
57   CALL dealloc_memory
58!
59!** + Module nproc
60!
61   CALL dealloc_nproc
62!
63!** + Module parallel
64!
65   CALL dealloc_parallel
66!
67!** + Module pipe
68!
69   CALL dealloc_pipe
70!
71!** + Module rainbow
72!
73   CALL dealloc_rainbow
74!
75!** + Module sipc
76!
77   CALL dealloc_sipc
78!
79!** + Module timestep
80!
81   CALL dealloc_timestep
82!
83!** + Module unitncdf
84!
85   CALL dealloc_unitncdf
86
87ENDIF
88!
89!** + Module experiment
90!
91CALL dealloc_experiment
92!
93!** + Module string
94!
95CALL dealloc_string
96!
97!*------------------------------------------------------------------------
98!
99END SUBROUTINE dealloc
100!
101!*========================================================================
Note: See TracBrowser for help on using the repository browser.