SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_agrin.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
MODULE
modd_agri_n
7
! ##################
8
!
9
!!**** *MODD_AGRI_n - declaration of SEEDING date for summer crops
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!
15
!!** IMPLICIT ARGUMENTS
16
!! ------------------
17
!! None
18
!!
19
!! REFERENCE
20
!! ---------
21
!!
22
!! AUTHOR
23
!! ------
24
!! P. LE MOIGNE *Meteo France*
25
!!
26
!! MODIFICATIONS
27
!! -------------
28
!! Original 06/2006
29
!
30
!* 0. DECLARATIONS
31
! ------------
32
!
33
!
34
USE
yomhook
,ONLY
: lhook, dr_hook
35
USE
parkind1
,ONLY
: jprb
36
!
37
IMPLICIT NONE
38
!
39
!-------------------------------------------------------------------------------
40
TYPE
agri_t
41
!
42
INTEGER
,
POINTER
,
DIMENSION (:,:)
:: NIRRINUM
43
! Stage for Irrigation (4 stages)
44
!
45
LOGICAL
,
POINTER
,
DIMENSION(:,:)
:: LIRRIGATE
46
! True if irrigation performed
47
!
48
LOGICAL
,
POINTER
,
DIMENSION(:,:)
:: LIRRIDAY
49
! True if irrigation occurs during present day
50
!
51
REAL
,
POINTER
,
DIMENSION(:,:)
:: XTHRESHOLDSPT
52
! Spatialized threshold
53
54
END TYPE
agri_t
55
!-------------------------------------------------------------------------------
56
57
58
59
CONTAINS
60
61
!
62
!
63
64
65
66
67
SUBROUTINE
agri_init
(YAGRI)
68
TYPE(
agri_t
)
,
INTENT(INOUT)
:: yagri
69
REAL(KIND=JPRB)
:: zhook_handle
70
IF
(lhook) CALL dr_hook(
"MODD_AGRI_N:AGRI_INIT"
,0,zhook_handle)
71
nullify(yagri%NIRRINUM)
72
nullify(yagri%LIRRIGATE)
73
nullify(yagri%LIRRIDAY)
74
nullify(yagri%XTHRESHOLDSPT)
75
IF
(lhook) CALL dr_hook(
"MODD_AGRI_N:AGRI_INIT"
,1,zhook_handle)
76
END SUBROUTINE
agri_init
77
78
!-------------------------------------------------------------------------------
79
!
80
END MODULE
modd_agri_n
modd_agri_n::agri_t
Definition:
modd_agrin.F90:40
modd_agri_n::agri_init
subroutine agri_init(YAGRI)
Definition:
modd_agrin.F90:67
modd_agri_n
Definition:
modd_agrin.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5