|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE DEEPSOIL_UPDATE(KMONTH) 00003 ! ############################################################### 00004 !!**** *DEEPSOIL_UPDATE* 00005 !! 00006 !! PURPOSE 00007 !! ------- 00008 ! 00009 ! performs the time evolution of DEEPSOIL 00010 ! 00011 !!** METHOD 00012 !! ------ 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! none 00017 !! 00018 !! IMPLICIT ARGUMENTS 00019 !! ------------------ 00020 !! 00021 !! none 00022 !! 00023 !! REFERENCE 00024 !! --------- 00025 !! 00026 !! 00027 !! AUTHOR 00028 !! ------ 00029 !! 00030 !! P. Le Moigne * Meteo-France * 00031 !! 00032 !! MODIFICATIONS 00033 !! ------------- 00034 !! Original 05/2008 00035 !! 00036 !------------------------------------------------------------------------------- 00037 ! 00038 !* 0. DECLARATIONS 00039 ! ------------ 00040 ! 00041 USE MODD_DEEPSOIL, ONLY : XTDEEP_CLI, XGAMMAT_CLI 00042 USE MODD_ISBA_n , ONLY : XTDEEP, XGAMMAT 00043 ! 00044 ! 00045 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00046 USE PARKIND1 ,ONLY : JPRB 00047 ! 00048 IMPLICIT NONE 00049 ! 00050 !* 0.1 declarations of arguments 00051 ! 00052 ! 00053 INTEGER, INTENT(IN) :: KMONTH ! current month 00054 ! 00055 !* 0.2 declarations of local variables 00056 ! 00057 INTEGER :: IP 00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00059 !----------------------------------------------------------------- 00060 ! 00061 IF (LHOOK) CALL DR_HOOK('DEEPSOIL_UPDATE',0,ZHOOK_HANDLE) 00062 DO IP=1,SIZE(XTDEEP) 00063 ! 00064 XTDEEP (IP) = XTDEEP_CLI (KMONTH) 00065 ! 00066 XGAMMAT(IP) = 1. / XGAMMAT_CLI(KMONTH) 00067 ! 00068 ENDDO 00069 IF (LHOOK) CALL DR_HOOK('DEEPSOIL_UPDATE',1,ZHOOK_HANDLE) 00070 ! 00071 !----------------------------------------------------------------- 00072 ! 00073 END SUBROUTINE DEEPSOIL_UPDATE
1.8.0
