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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PGD_SEA(HPROGRAM)
00003 !     #############################################################
00004 !
00005 !!****  *PGD_SEA* - routine to choose initialization of sea scheme
00006 !!    PURPOSE
00007 !!    -------
00008 !!
00009 !!**  METHOD
00010 !!    ------
00011 !!
00012 !!    EXTERNAL
00013 !!    --------
00014 !!
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!    REFERENCE
00020 !!    ---------
00021 !!
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!      V. Masson   *Meteo France*      
00026 !!
00027 !!    MODIFICATIONS
00028 !!    -------------
00029 !!      Original    03/2004
00030 !-------------------------------------------------------------------------------
00031 !
00032 !*       0.    DECLARATIONS
00033 !              ------------
00034 !
00035 USE MODD_SURF_ATM_n, ONLY : CSEA
00036 !
00037 USE MODI_PGD_SEAFLUX
00038 !
00039 !
00040 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00041 USE PARKIND1  ,ONLY : JPRB
00042 !
00043 IMPLICIT NONE
00044 !
00045 !*       0.1   Declarations of arguments
00046 !              -------------------------
00047 !
00048 !
00049  CHARACTER(LEN=6),                INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00050 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00051 !
00052 !
00053 !*       0.2   Declarations of local variables
00054 !              -------------------------------
00055 !
00056 !-------------------------------------------------------------------------------
00057 !
00058 !*       2.     Selection of surface scheme
00059 !               ---------------------------
00060 !
00061 IF (LHOOK) CALL DR_HOOK('PGD_SEA',0,ZHOOK_HANDLE)
00062 IF (CSEA=='NONE  ') THEN
00063   IF (LHOOK) CALL DR_HOOK('PGD_SEA',1,ZHOOK_HANDLE)
00064   RETURN
00065 ELSE IF (CSEA=='FLUX  ') THEN
00066   IF (LHOOK) CALL DR_HOOK('PGD_SEA',1,ZHOOK_HANDLE)
00067   RETURN
00068 ELSE IF (CSEA=='SEAFLX') THEN
00069   CALL PGD_SEAFLUX(HPROGRAM)
00070 END IF
00071 IF (LHOOK) CALL DR_HOOK('PGD_SEA',1,ZHOOK_HANDLE)
00072 !
00073 !-------------------------------------------------------------------------------
00074 !
00075 END SUBROUTINE PGD_SEA