SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
clean_prep_output_grid.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
clean_prep_output_grid
7
! #######################################
8
!!
9
!! PURPOSE
10
!! -------
11
!! Computes variables used for interpolation
12
!!
13
!! METHOD
14
!! ------
15
!!
16
!! EXTERNAL
17
!! --------
18
!!
19
!!
20
!! IMPLICIT ARGUMENTS
21
!! ------------------
22
!!
23
!!
24
!! REFERENCE
25
!! ---------
26
!!
27
!! AUTHOR
28
!! ------
29
!!
30
!! V. Masson Meteo-France
31
!!
32
!! MODIFICATION
33
!! ------------
34
!!
35
!! Original 01/2004
36
!----------------------------------------------------------------------------
37
!
38
!* 0. DECLARATION
39
! -----------
40
!
41
USE
modd_prep
, ONLY
: xlat_out, xlon_out, xx_out, xy_out,linterp
42
!
43
!
44
USE
yomhook
,ONLY
: lhook, dr_hook
45
USE
parkind1
,ONLY
: jprb
46
!
47
IMPLICIT NONE
48
!
49
!* 0.1 Declaration of dummy arguments
50
! ------------------------------
51
!
52
!
53
!* 0.2 Declaration of local variables
54
! ------------------------------
55
!
56
!
57
!------------------------------------------------------------------------------
58
!
59
60
REAL(KIND=JPRB)
:: zhook_handle
61
62
IF
(lhook) CALL dr_hook(
'CLEAN_PREP_OUTPUT_GRID'
,0,zhook_handle)
63
DEALLOCATE
(xlat_out)
64
DEALLOCATE
(xlon_out)
65
DEALLOCATE
(xx_out )
66
DEALLOCATE
(xy_out )
67
!
68
DEALLOCATE
(linterp )
69
IF
(lhook) CALL dr_hook(
'CLEAN_PREP_OUTPUT_GRID'
,1,zhook_handle)
70
!-------------------------------------------------------------------------------
71
!
72
END SUBROUTINE
clean_prep_output_grid
clean_prep_output_grid
subroutine clean_prep_output_grid
Definition:
clean_prep_output_grid.F90:6
modd_prep
Definition:
modd_prep.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5