Juan 8/12/2016: add management of LEN_HREC in MNH & SURFEX
[MNH-git_open_source-lfs.git] / src / SURFEX / writesurf_pgd_tsz0_parn.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_TSZ0_PAR_n(HPROGRAM)
7 !     ################################################
8 !
9 !!****  *WRITESURF_PGD_TSZ0_PAR_n* - writes TSZ0 physiographic fields
10 !!                        
11 !!
12 !!    PURPOSE
13 !!    -------
14 !!
15 !!**  METHOD
16 !!    ------
17 !!
18 !!    EXTERNAL
19 !!    --------
20 !!
21 !!
22 !!    IMPLICIT ARGUMENTS
23 !!    ------------------
24 !!
25 !!    REFERENCE
26 !!    ---------
27 !!
28 !!
29 !!    AUTHOR
30 !!    ------
31 !!      V. Masson   *Meteo France*      
32 !!
33 !!    MODIFICATIONS
34 !!    -------------
35 !!      Original    01/2003 
36 !!      P. Le Moigne 12/2004 : add type of photosynthesis 
37 !-------------------------------------------------------------------------------
38 !
39 !*       0.    DECLARATIONS
40 !              ------------
41 !
42 USE MODD_DATA_TSZ0_n,    ONLY : NTIME, XDATA_DTS, XDATA_DHUGRD   
43 !
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 !*       0.2   Declarations of local variables
57 !              -------------------------------
58 !
59 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
60  CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
61  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
62 REAL(KIND=JPRB) :: ZHOOK_HANDLE
63 !
64 !-------------------------------------------------------------------------------
65 !
66 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TSZ0_PAR_N',0,ZHOOK_HANDLE)
67 !
68 NTIME = SIZE(XDATA_DTS)
69 YRECFM   = 'ND_TSZ0_TIME'
70 YCOMMENT = '(-)'
71  CALL WRITE_SURF(HPROGRAM,YRECFM,NTIME,IRESP,HCOMMENT=YCOMMENT)
72 !
73 YRECFM   = 'D_DTS'
74 YCOMMENT = 'X_Y_DATA_DTS'
75  CALL WRITE_SURF(HPROGRAM,YRECFM,XDATA_DTS(:),IRESP,HCOMMENT=YCOMMENT,HDIR='-')
76 !
77 YRECFM   = 'D_DHUGRD'
78 YCOMMENT = 'X_Y_DATA_DHUGRD'
79  CALL WRITE_SURF(HPROGRAM,YRECFM,XDATA_DHUGRD(:),IRESP,HCOMMENT=YCOMMENT,HDIR='-')
80 !
81 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TSZ0_PAR_N',1,ZHOOK_HANDLE)
82 !
83 !-------------------------------------------------------------------------------
84 !
85 END SUBROUTINE WRITESURF_PGD_TSZ0_PAR_n