SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE PREP_INLAND_WATER(HPROGRAM,HATMFILE,HATMFILETYPE,HPGDFILE,HPGDFILETYPE) 00003 ! ################################################################################# 00004 ! 00005 !!**** *PREP_INLAND_WATER* - Chooses the surface schemes for lakes preparation 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! REFERENCE 00014 !! --------- 00015 !! 00016 !! 00017 !! AUTHOR 00018 !! ------ 00019 !! S. Malardel 00020 !! 00021 !! MODIFICATIONS 00022 !! ------------- 00023 !! Original 01/2004 00024 !!------------------------------------------------------------------ 00025 ! 00026 ! 00027 USE MODD_SURF_ATM_n, ONLY : CWATER 00028 ! 00029 USE MODI_PREP_WATFLUX 00030 USE MODI_PREP_FLAKE 00031 ! 00032 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00033 USE PARKIND1 ,ONLY : JPRB 00034 ! 00035 IMPLICIT NONE 00036 ! 00037 !* 0.1 declarations of arguments 00038 ! 00039 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes 00040 CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file 00041 CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file 00042 CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file 00043 CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file 00044 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00045 ! 00046 ! 00047 !* 0.2 declarations of local variables 00048 ! 00049 !------------------------------------------------------------------------------------- 00050 ! 00051 IF (LHOOK) CALL DR_HOOK('PREP_INLAND_WATER',0,ZHOOK_HANDLE) 00052 IF (CWATER=='WATFLX') THEN 00053 CALL PREP_WATFLUX(HPROGRAM,HATMFILE,HATMFILETYPE,HPGDFILE,HPGDFILETYPE) 00054 ELSE IF (CWATER=='FLAKE ') THEN 00055 CALL PREP_FLAKE(HPROGRAM,HATMFILE,HATMFILETYPE,HPGDFILE,HPGDFILETYPE) 00056 END IF 00057 IF (LHOOK) CALL DR_HOOK('PREP_INLAND_WATER',1,ZHOOK_HANDLE) 00058 ! 00059 !------------------------------------------------------------------------------------- 00060 ! 00061 END SUBROUTINE PREP_INLAND_WATER