SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITESURF_PGD_TEB_VEG_n(HPROGRAM) 00003 ! ############################################### 00004 ! 00005 !!**** *WRITE_PGD_TEB_VEG_n* - writes ISBA fields describing urban gardens 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! EXTERNAL 00014 !! -------- 00015 !! 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! 00024 !! AUTHOR 00025 !! ------ 00026 !! A. Lemonsu & C. de Munck *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 06/2011 00031 !! 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_TEB_VEG_n, ONLY : CISBA 00038 USE MODD_TEB_GARDEN_n, ONLY : NGROUND_LAYER, XSOILGRID, & 00039 XCLAY, XSAND, XRUNOFFB, XWDRAIN 00040 USE MODD_DATA_TEB_GARDEN_n, ONLY : NTIME 00041 ! 00042 USE MODI_WRITE_SURF 00043 ! 00044 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00045 USE PARKIND1 ,ONLY : JPRB 00046 ! 00047 IMPLICIT NONE 00048 ! 00049 !* 0.1 Declarations of arguments 00050 ! ------------------------- 00051 ! 00052 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling 00053 00054 ! 00055 !* 0.2 Declarations of local variables 00056 ! ------------------------------- 00057 ! 00058 INTEGER :: IRESP ! IRESP : return-code if a problem appears 00059 CHARACTER(LEN=12) :: YRECFM ! Name of the article to be read 00060 CHARACTER(LEN=100):: YCOMMENT ! Comment string 00061 ! 00062 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00063 ! 00064 !------------------------------------------------------------------------------- 00065 ! 00066 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TEB_VEG_N',0,ZHOOK_HANDLE) 00067 ! 00068 !* soil scheme option 00069 ! 00070 YRECFM='GD_ISBA' 00071 YCOMMENT=YRECFM 00072 CALL WRITE_SURF(HPROGRAM,YRECFM,CISBA,IRESP,HCOMMENT=YCOMMENT) 00073 ! 00074 !* Reference grid for DIF 00075 ! 00076 IF(CISBA=='DIF') THEN 00077 YRECFM='GD_SOILGRID' 00078 YCOMMENT=YRECFM 00079 CALL WRITE_SURF(HPROGRAM,YRECFM,XSOILGRID,IRESP,HCOMMENT=YCOMMENT,HDIR='-') 00080 ENDIF 00081 ! 00082 !* number of soil layers 00083 ! 00084 YRECFM='GD_LAYER' 00085 YCOMMENT=YRECFM 00086 CALL WRITE_SURF(HPROGRAM,YRECFM,NGROUND_LAYER,IRESP,HCOMMENT=YCOMMENT) 00087 ! 00088 !* number of time data for vegetation characteristics (VEG, LAI, EMIS, Z0) 00089 ! 00090 YRECFM='GD_NTIME' 00091 YCOMMENT=YRECFM 00092 CALL WRITE_SURF(HPROGRAM,YRECFM,NTIME,IRESP,HCOMMENT=YCOMMENT) 00093 ! 00094 ! * clay fraction 00095 ! 00096 YRECFM='GD_CLAY' 00097 YCOMMENT='X_Y_GD_CLAY' 00098 CALL WRITE_SURF(HPROGRAM,YRECFM,XCLAY(:,1),IRESP,HCOMMENT=YCOMMENT) 00099 ! 00100 ! * sand fraction 00101 ! 00102 YRECFM='GD_SAND' 00103 YCOMMENT='X_Y_GD_SAND' 00104 CALL WRITE_SURF(HPROGRAM,YRECFM,XSAND(:,1),IRESP,HCOMMENT=YCOMMENT) 00105 ! 00106 ! * orographic runoff coefficient 00107 ! 00108 YRECFM='GD_RUNOFFB' 00109 YCOMMENT='X_Y_GD_RUNOFFB' 00110 CALL WRITE_SURF(HPROGRAM,YRECFM,XRUNOFFB,IRESP,HCOMMENT=YCOMMENT) 00111 ! 00112 ! * subgrid drainage coefficient 00113 ! 00114 YRECFM='GD_WDRAIN' 00115 YCOMMENT='X_Y_GD_WDRAIN' 00116 CALL WRITE_SURF(HPROGRAM,YRECFM,XWDRAIN,IRESP,HCOMMENT=YCOMMENT) 00117 ! 00118 ! 00119 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_TEB_VEG_N',1,ZHOOK_HANDLE) 00120 !------------------------------------------------------------------------------- 00121 ! 00122 END SUBROUTINE WRITESURF_PGD_TEB_VEG_n