SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/writesurf_pgd_tsz0

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE WRITESURF_PGD_TSZ0_PAR_n(HPROGRAM)
00003 !     ################################################
00004 !
00005 !!****  *WRITESURF_PGD_TSZ0_PAR_n* - writes TSZ0 physiographic fields
00006 !!                        
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    01/2003 
00032 !!      P. Le Moigne 12/2004 : add type of photosynthesis 
00033 !-------------------------------------------------------------------------------
00034 !
00035 !*       0.    DECLARATIONS
00036 !              ------------
00037 !
00038 USE MODD_DATA_TSZ0_n,    ONLY : NTIME, XDATA_DTS, XDATA_DHUGRD   
00039 !
00040 USE MODI_WRITE_SURF
00041 !
00042 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00043 USE PARKIND1  ,ONLY : JPRB
00044 !
00045 IMPLICIT NONE
00046 !
00047 !*       0.1   Declarations of arguments
00048 !              -------------------------
00049 !
00050  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling
00051 !
00052 !*       0.2   Declarations of local variables
00053 !              -------------------------------
00054 !
00055 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
00056  CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
00057  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !-------------------------------------------------------------------------------
00061 !
00062 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TSZ0_PAR_N',0,ZHOOK_HANDLE)
00063 !
00064 NTIME = SIZE(XDATA_DTS)
00065 YRECFM   = 'ND_TSZ0_TIME'
00066 YCOMMENT = '(-)'
00067  CALL WRITE_SURF(HPROGRAM,YRECFM,NTIME,IRESP,HCOMMENT=YCOMMENT)
00068 !
00069 YRECFM   = 'D_DTS'
00070 YCOMMENT = 'X_Y_DATA_DTS'
00071  CALL WRITE_SURF(HPROGRAM,YRECFM,XDATA_DTS(:),IRESP,HCOMMENT=YCOMMENT,HDIR='-')
00072 !
00073 YRECFM   = 'D_DHUGRD'
00074 YCOMMENT = 'X_Y_DATA_DHUGRD'
00075  CALL WRITE_SURF(HPROGRAM,YRECFM,XDATA_DHUGRD(:),IRESP,HCOMMENT=YCOMMENT,HDIR='-')
00076 !
00077 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TSZ0_PAR_N',1,ZHOOK_HANDLE)
00078 !
00079 !-------------------------------------------------------------------------------
00080 !
00081 END SUBROUTINE WRITESURF_PGD_TSZ0_PAR_n