SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
dealloc_ideal_flux.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
! #################################################################################
6
SUBROUTINE
dealloc_ideal_flux
7
! #################################################################################
8
!
9
!!**** *DEALLOC_IDEAL_FLUX * - Deallocate all arrays
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!** METHOD
15
!! ------
16
!!
17
!! REFERENCE
18
!! ---------
19
!!
20
!!
21
!! AUTHOR
22
!! ------
23
!! V. Masson
24
!!
25
!! MODIFICATIONS
26
!! -------------
27
!! Original 01/2004
28
!!------------------------------------------------------------------
29
!
30
USE
modd_ideal_flux
, ONLY
: xtimef, xtimet, &
31
xsfth, xsftq, xsfts, xsfco2, xustar, xtsrad
32
!
33
USE
yomhook
,ONLY
: lhook, dr_hook
34
USE
parkind1
,ONLY
: jprb
35
!
36
IMPLICIT NONE
37
!
38
!* 0.1 declarations of arguments
39
!
40
!
41
!* 0.2 declarations of local variables
42
!
43
!-------------------------------------------------------------------------------------
44
!
45
REAL(KIND=JPRB)
:: zhook_handle
46
47
IF
(lhook) CALL dr_hook(
'DEALLOC_IDEAL_FLUX'
,0,zhook_handle)
48
IF
(
ALLOCATED
(xtimef))
DEALLOCATE
(xtimef)
49
IF
(
ALLOCATED
(xtimet))
DEALLOCATE
(xtimet)
50
IF
(
ALLOCATED
(xsfts))
DEALLOCATE
(xsfts)
51
IF
(
ALLOCATED
(xsfth))
DEALLOCATE
(xsfth)
52
IF
(
ALLOCATED
(xsftq))
DEALLOCATE
(xsftq)
53
IF
(
ALLOCATED
(xsfco2))
DEALLOCATE
(xsfco2)
54
IF
(
ALLOCATED
(xustar))
DEALLOCATE
(xustar)
55
IF
(
ALLOCATED
(xtsrad))
DEALLOCATE
(xtsrad)
56
IF
(lhook) CALL dr_hook(
'DEALLOC_IDEAL_FLUX'
,1,zhook_handle)
57
!
58
!--------------------------------------------------------------------------------------
59
!
60
END SUBROUTINE
dealloc_ideal_flux
61
62
modd_ideal_flux
Definition:
modd_ideal_flux.F90:6
dealloc_ideal_flux
subroutine dealloc_ideal_flux
Definition:
dealloc_ideal_flux.F90:6
Generated on Fri May 13 2016 09:31:01 for SURFEX by
1.8.5