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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE WRITE_DIAG_NATURE_n(HPROGRAM,HWRITE)
00003 !     ###############################################################################
00004 !
00005 !!****  *WRITE_DIAG_NATURE_n * - Chooses the surface schemes for diagnostics over
00006 !!    natural continental parts
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    REFERENCE
00015 !!    ---------
00016 !!      
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!     V. Masson 
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original    01/2004
00025 !!------------------------------------------------------------------
00026 !
00027 
00028 !
00029 USE MODD_SURF_PAR,   ONLY : XUNDEF
00030 USE MODD_SURF_ATM_n, ONLY : CNATURE
00031 !
00032 USE MODI_WRITE_DIAG_ISBA_n
00033 ! 
00034 !
00035 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00036 USE PARKIND1  ,ONLY : JPRB
00037 !
00038 IMPLICIT NONE
00039 !
00040 !*      0.1    declarations of arguments
00041 !
00042  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM ! program calling surf. schemes
00043  CHARACTER(LEN=3),   INTENT(IN)  :: HWRITE   ! 'PGD' : only physiographic fields are written
00044 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00045 !                                           ! 'ALL' : all fields are written
00046 !
00047 !
00048 !*      0.2    declarations of local variables
00049 !
00050 !-------------------------------------------------------------------------------------
00051 !
00052 IF (LHOOK) CALL DR_HOOK('WRITE_DIAG_NATURE_N',0,ZHOOK_HANDLE)
00053 IF (CNATURE=='ISBA  ') THEN
00054   CALL WRITE_DIAG_ISBA_n(HPROGRAM,HWRITE)
00055 END IF
00056 IF (LHOOK) CALL DR_HOOK('WRITE_DIAG_NATURE_N',1,ZHOOK_HANDLE)
00057 !
00058 !-------------------------------------------------------------------------------------
00059 !
00060 END SUBROUTINE WRITE_DIAG_NATURE_n