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

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