980ec88fcc1fbca77720a0d85855cf70fedfb2b5
[MNH-git_open_source-lfs.git] / src / SURFEX / write_ecoclimap2_data.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 WRITE_ECOCLIMAP2_DATA(HPROGRAM)
7 !     #######################
8 !
9 USE MODI_WRITE_SURF
10 !
11 USE MODD_DATA_COVER,     ONLY : TDATA_SEED, TDATA_REAP, XDATA_WATSUP, XDATA_IRRIG,&
12                                   LDATA_IRRIG, XDATA_VEGTYPE, LCLIM_LAI  
13 USE MODD_DATA_COVER_PAR, ONLY : JPCOVER, NVT_IRR
14 !
15 !
16 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
17 USE PARKIND1  ,ONLY : JPRB
18 !
19 IMPLICIT NONE
20 !
21 !* dummy arguments
22 !  ---------------
23 !
24  CHARACTER(LEN=6),     INTENT(IN)    :: HPROGRAM  ! program calling surf. schemes
25 !
26 !
27 !* local variables
28 !  ---------------
29 !
30  CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
31  CHARACTER(LEN=100):: YCOMMENT   ! Comment
32 INTEGER           :: IRESP      ! reading return code
33 !
34 INTEGER           :: IVERSION   ! surface version
35 INTEGER           :: IBUGFIX    ! surface bugfix
36 !
37 INTEGER           :: JCOVER     ! loop counter
38 !
39 REAL, DIMENSION(6) :: ZWORK
40 REAL(KIND=JPRB) :: ZHOOK_HANDLE
41 !------------------------------------------------------------------------------
42 !
43 IF (LHOOK) CALL DR_HOOK('WRITE_ECOCLIMAP2_DATA',0,ZHOOK_HANDLE)
44 YRECFM='DATA_IRRIG'
45 YCOMMENT='FLAG TO READ USER IRRIGATION DATA FOR ECOCLIMAP2'
46  CALL WRITE_SURF(HPROGRAM,YRECFM,LDATA_IRRIG,IRESP,YCOMMENT)
47 !
48 YRECFM='LCLIM_LAI'
49 YCOMMENT='FLAG TO USE CLIMATOLOGICAL LAI'
50  CALL WRITE_SURF(HPROGRAM,YRECFM,LCLIM_LAI,IRESP,YCOMMENT)
51 !
52 IF (.NOT. LDATA_IRRIG .AND. LHOOK) CALL DR_HOOK('WRITE_ECOCLIMAP2_DATA',1,ZHOOK_HANDLE)
53 IF (.NOT. LDATA_IRRIG) RETURN
54 !
55 DO JCOVER=1,JPCOVER
56   IF (XDATA_VEGTYPE(JCOVER,NVT_IRR)==0.) CYCLE
57   WRITE(YRECFM,FMT='(A6,I3.3)') 'IRRIG_',JCOVER
58   WRITE(YCOMMENT,FMT='(A47,I3.3)') &
59     'SEED MONTH&DAY, REAP MONTH&DAY, WATSUP, IRRIG  ',JCOVER  
60   ZWORK(1) = TDATA_SEED  (JCOVER,NVT_IRR)%TDATE%MONTH
61   ZWORK(2) = TDATA_SEED  (JCOVER,NVT_IRR)%TDATE%DAY
62   ZWORK(3) = TDATA_REAP  (JCOVER,NVT_IRR)%TDATE%MONTH
63   ZWORK(4) = TDATA_REAP  (JCOVER,NVT_IRR)%TDATE%DAY
64   ZWORK(5) = XDATA_WATSUP(JCOVER,NVT_IRR)
65   ZWORK(6) = XDATA_IRRIG (JCOVER,NVT_IRR)
66   CALL WRITE_SURF(HPROGRAM,YRECFM,ZWORK,IRESP,YCOMMENT,HDIR='-')
67 END DO
68 IF (LHOOK) CALL DR_HOOK('WRITE_ECOCLIMAP2_DATA',1,ZHOOK_HANDLE)
69 !
70 !------------------------------------------------------------------------------
71 !
72 END SUBROUTINE WRITE_ECOCLIMAP2_DATA