SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
refresh_pgdwork.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
refresh_pgdwork
7
! ##########################
8
!
9
!!**** *REFRESH_PGDWORK* ! refreshes arrays used in PGD work module
10
!
11
!! PURPOSE
12
!! -------
13
!!
14
!! METHOD
15
!! ------
16
!!
17
!
18
!! EXTERNAL
19
!! --------
20
!!
21
!! IMPLICIT ARGUMENTS
22
!! ------------------
23
!!
24
!! REFERENCE
25
!! ---------
26
!!
27
!! AUTHOR
28
!! ------
29
!!
30
!! V. Masson Meteo-France
31
!!
32
!! MODIFICATION
33
!! ------------
34
!!
35
!! Original 09/2008
36
!!
37
!
38
USE
modd_pgdwork
, ONLY
: xssqo, lssqo, xsumval, xsumval2, xsumcover, nsize
39
!
40
!
41
USE
yomhook
,ONLY
: lhook, dr_hook
42
USE
parkind1
,ONLY
: jprb
43
!
44
IMPLICIT NONE
45
!
46
!----------------------------------------------------------------------------
47
!
48
!* 1. Cover array
49
! -----------
50
!
51
52
REAL(KIND=JPRB)
:: zhook_handle
53
54
IF
(lhook) CALL dr_hook(
'REFRESH_PGDWORK'
,0,zhook_handle)
55
IF
(
ALLOCATED
(xsumcover))
THEN
56
xsumcover=0.
57
END IF
58
!----------------------------------------------------------------------------
59
!
60
!* 2. General arrays
61
! --------------
62
!
63
IF
(
ALLOCATED
(xsumval))
THEN
64
xsumval=0.
65
END IF
66
IF
(
ALLOCATED
(xsumval2))
THEN
67
xsumval2=0.
68
END IF
69
IF
(
ALLOCATED
(nsize))
THEN
70
nsize=0
71
END IF
72
!----------------------------------------------------------------------------
73
!
74
!* 3. Subgrid arrays
75
! --------------
76
!
77
IF
(
ALLOCATED
(lssqo))
THEN
78
xssqo(:,:,:) = -99999.
79
lssqo(:,:,:) = .false.
80
END IF
81
IF
(lhook) CALL dr_hook(
'REFRESH_PGDWORK'
,1,zhook_handle)
82
!
83
!----------------------------------------------------------------------------
84
!
85
END SUBROUTINE
refresh_pgdwork
modd_pgdwork
Definition:
modd_pgdwork.F90:6
refresh_pgdwork
subroutine refresh_pgdwork
Definition:
refresh_pgdwork.F90:6
Generated on Fri May 13 2016 09:31:05 for SURFEX by
1.8.5