Context Navigation

allocation.F90 @ 4175

Last change on this file since 4175 was 4170, checked in by jbclement, 6 days ago

PEM:

Deletion of 'flux_ssice' ('zqdsdif_tot') from the "startfi.nc" as it is not needed.
Using the yearly average flux for the sublimating subsurface ice instead of the value at last timestep.
Keeping a clear separation between the subsurface ice flux and the surface ice tendency.
Making sure that subsurface ice depth is well given to the PCM at the end of the PEM (ice table VS layering).

JBC

File size: 3.0 KB

Line
1	MODULE allocation
2	!-----------------------------------------------------------------------
3	! NAME
4	! allocation
5	!
6	! DESCRIPTION
7	! Management of memory throughout the modules of the code.
8	!
9	! AUTHORS & DATE
10	! JB Clement, 12/2025
11	!
12	! NOTES
13	!
14	!-----------------------------------------------------------------------
15
16	! DEPENDENCIES
17	! ------------
18	use geometry, only: ini_geometry, end_geometry, dim_init
19	use atmosphere, only: ini_atmosphere, end_atmosphere
20	use tracers, only: ini_tracers, end_tracers
21	use slopes, only: ini_slopes, end_slopes
22	use surface, only: ini_surface, end_surface
23	use surf_temp, only: ini_surf_temp, end_surf_temp
24	use soil_temp, only: ini_soil_temp, end_soil_temp
25	use frost, only: ini_frost, end_frost
26	use soil, only: ini_soil, end_soil
27	use surf_ice, only: ini_surf_ice, end_surf_ice
28	use orbit, only: ini_orbit, end_orbit
29	use output, only: ini_output, end_output
30	use ice_table, only: ini_ice_table, end_ice_table
31	use planet, only: ini_planet, end_planet
32
33	! DECLARATION
34	! -----------
35	implicit none
36
37	contains
38	!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
39
40	!=======================================================================
41	SUBROUTINE ini_allocation()
42	!-----------------------------------------------------------------------
43	! NAME
44	! ini_geometry
45	!
46	! DESCRIPTION
47	! Initialize module arrays.
48	!
49	! AUTHORS & DATE
50	! JB Clement, 12/2025
51	!
52	! NOTES
53	!
54	!-----------------------------------------------------------------------
55
56	! DEPENDENCIES
57	! ------------
58	use stoppage, only: stop_clean
59
60	! DECLARATION
61	! -----------
62	implicit none
63
64	! CODE
65	! ----
66	! Initialize the dimensions
67	call ini_geometry()
68	if (.not. dim_init) call stop_clean(__FILE__,__LINE__,"Dimensions of module 'geometry' were not correctly initilized.",1)
69
70	! Initialize everything else
71	call ini_planet()
72	call ini_atmosphere()
73	call ini_tracers()
74	call ini_slopes()
75	call ini_surface()
76	call ini_surf_temp()
77	call ini_soil_temp()
78	call ini_frost()
79	call ini_soil()
80	call ini_surf_ice()
81	call ini_orbit()
82	call ini_output()
83	call ini_ice_table()
84
85	END SUBROUTINE ini_allocation
86	!=======================================================================
87
88	!=======================================================================
89	SUBROUTINE end_allocation()
90	!-----------------------------------------------------------------------
91	! NAME
92	! end_geometry
93	!
94	! DESCRIPTION
95	! Deallocate module arrays.
96	!
97	! AUTHORS & DATE
98	! JB Clement, 12/2025
99	!
100	! NOTES
101	!
102	!-----------------------------------------------------------------------
103
104	! DECLARATION
105	! -----------
106	implicit none
107
108	! CODE
109	! ----
110	call end_ice_table()
111	call end_output()
112	call end_orbit()
113	call end_surf_ice()
114	call end_soil()
115	call end_frost()
116	call end_soil_temp()
117	call end_surf_temp()
118	call end_surface()
119	call end_slopes()
120	call end_tracers()
121	call end_atmosphere()
122	call end_planet()
123	call end_geometry()
124
125	END SUBROUTINE end_allocation
126	!=======================================================================
127
128	END MODULE allocation
129

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format