a0564be88899f0c8aea142380a548625cb10d7f7
[MNH-git_open_source-lfs.git] / src / SURFEX / writesurf_pgd_teb_greenroofn.F90
1 !SURFEX_LIC Copyright 1994-2014 Meteo-France 
2 !SURFEX_LIC This is part of the SURFEX software governed by the CeCILL-C  licence
3 !SURFEX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SURFEX_LIC for details. version 1.
5 !     #########
6       SUBROUTINE WRITESURF_PGD_TEB_GREENROOF_n(HPROGRAM)
7 !     ###############################################
8 !
9 !!****  *WRITESURF_PGD_TEB_GREENROOF_n* - writes ISBA fields describing urban greenroofs
10 !!
11 !!    PURPOSE
12 !!    -------
13 !!
14 !!**  METHOD
15 !!    ------
16 !!
17 !!    EXTERNAL
18 !!    --------
19 !!
20 !!
21 !!    IMPLICIT ARGUMENTS
22 !!    ------------------
23 !!
24 !!    REFERENCE
25 !!    ---------
26 !!
27 !!
28 !!    AUTHOR
29 !!    ------
30 !!     A. Lemonsu & C. de Munck   *Meteo France*
31 !!
32 !!    MODIFICATIONS
33 !!    -------------
34 !!      Original    07/2011 
35 !!
36 !-------------------------------------------------------------------------------
37 !
38 !*       0.    DECLARATIONS
39 !              ------------
40 !
41 USE MODD_TEB_GREENROOF_n,   ONLY : CISBA_GR, CSCOND_GR,      &
42                                    NLAYER_GR, NTIME_GR,      &
43                                    XRUNOFFB_GR, XWDRAIN_GR 
44 USE MODI_WRITE_SURF
45 !
46 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
47 USE PARKIND1  ,ONLY : JPRB
48 !
49 IMPLICIT NONE
50 !
51 !*       0.1   Declarations of arguments
52 !              -------------------------
53 !
54  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling
55
56 !
57 !*       0.2   Declarations of local variables
58 !              -------------------------------
59 !
60 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
61  CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
62  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
63 !
64 REAL(KIND=JPRB) :: ZHOOK_HANDLE
65 !
66 !-------------------------------------------------------------------------------
67 !
68 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TEB_GREENROOF_N',0,ZHOOK_HANDLE)
69 !
70 !* soil scheme option
71 !
72 YRECFM='GR_ISBA'
73 YCOMMENT=YRECFM
74  CALL WRITE_SURF(HPROGRAM,YRECFM,CISBA_GR,IRESP,HCOMMENT=YCOMMENT)
75 !
76 !* thermal conductivity option
77 !
78 YRECFM='GR_SCOND'
79 YCOMMENT=YRECFM
80  CALL WRITE_SURF(HPROGRAM,YRECFM,CSCOND_GR,IRESP,HCOMMENT=YCOMMENT)
81 !
82 !* number of soil layers
83 !
84 YRECFM='GR_LAYER'
85 YCOMMENT=YRECFM
86  CALL WRITE_SURF(HPROGRAM,YRECFM,NLAYER_GR,IRESP,HCOMMENT=YCOMMENT)
87 !
88 !* number of time data for green roof chacteristics (VEG, LAI, EMIS, Z0) 
89 !
90 YRECFM='GR_NTIME'
91 YCOMMENT=YRECFM
92  CALL WRITE_SURF(HPROGRAM,YRECFM,NTIME_GR,IRESP,HCOMMENT=YCOMMENT)
93 !
94 YRECFM='GR_RUNOFFB'
95 YCOMMENT=YRECFM
96  CALL WRITE_SURF(HPROGRAM,YRECFM,XRUNOFFB_GR,IRESP,HCOMMENT=YCOMMENT)
97 !
98 YRECFM='GR_WDRAIN'
99 YCOMMENT=YRECFM
100  CALL WRITE_SURF(HPROGRAM,YRECFM,XWDRAIN_GR,IRESP,HCOMMENT=YCOMMENT)
101 !
102 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TEB_GREENROOF_N',1,ZHOOK_HANDLE)
103 !-------------------------------------------------------------------------------
104 !
105 END SUBROUTINE WRITESURF_PGD_TEB_GREENROOF_n