|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE DEFAULT_DIAG_ISBA(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET, & 00003 OCOEF,OSURF_VARS,OSURF_EVAP_BUDGET, & 00004 OSURF_MISC_BUDGET,OSURF_BUDGETC, & 00005 OSURF_MISC_DIF,OPATCH_BUDGET, & 00006 OPGD,ORESET_BUDGETC,OWATER_BUDGET, & 00007 PDIAG_TSTEP ) 00008 ! ################################################################################################################# 00009 ! 00010 !!**** *DEFAULT_DIAG_ISBA* - routine to set default values for the choice of diagnostics 00011 !! 00012 !! PURPOSE 00013 !! ------- 00014 !! 00015 !!** METHOD 00016 !! ------ 00017 !! 00018 !! EXTERNAL 00019 !! -------- 00020 !! 00021 !! 00022 !! IMPLICIT ARGUMENTS 00023 !! ------------------ 00024 !! 00025 !! REFERENCE 00026 !! --------- 00027 !! 00028 !! 00029 !! AUTHOR 00030 !! ------ 00031 !! V. Masson *Meteo France* 00032 !! 00033 !! MODIFICATIONS 00034 !! ------------- 00035 !! Original 01/2004 00036 !! Modified by P. Le Moigne, 11/2004: add budget switch 00037 !! Modified by B. Decharme , 06/2009: add patch budget switch 00038 !! Modified by A.L. Gibelin, 04/2009: add carbon spinup 00039 !! Modified by B. Decharme , 05/2012: move carbon spinup to NAM_SPINUP_CARB 00040 !! add miscellaneous field key for dif 00041 !! add isba water budget key 00042 !------------------------------------------------------------------------------- 00043 ! 00044 !* 0. DECLARATIONS 00045 ! ------------ 00046 ! 00047 USE MODD_SURF_PAR, ONLY : XUNDEF 00048 ! 00049 ! 00050 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00051 USE PARKIND1 ,ONLY : JPRB 00052 ! 00053 IMPLICIT NONE 00054 ! 00055 !* 0.1 Declarations of arguments 00056 ! ------------------------- 00057 ! 00058 ! 00059 INTEGER, INTENT(OUT) :: K2M ! flag for operational 2m quantities 00060 LOGICAL, INTENT(OUT) :: OSURF_BUDGET ! flag for surface budget 00061 LOGICAL, INTENT(OUT) :: O2M_MIN_ZS 00062 LOGICAL, INTENT(OUT) :: ORAD_BUDGET ! flag for radiative budget 00063 LOGICAL, INTENT(OUT) :: OCOEF 00064 LOGICAL, INTENT(OUT) :: OSURF_VARS 00065 LOGICAL, INTENT(OUT) :: OSURF_EVAP_BUDGET ! flag for surface evaporation budget 00066 LOGICAL, INTENT(OUT) :: OSURF_MISC_BUDGET ! flag for surface miscellaneous budget 00067 LOGICAL, INTENT(OUT) :: OSURF_BUDGETC ! flag for cumulated surface budget 00068 LOGICAL, INTENT(OUT) :: OSURF_MISC_DIF ! flag for surface miscellaneous dif variables 00069 LOGICAL, INTENT(OUT) :: OPATCH_BUDGET ! flag for patch output 00070 LOGICAL, INTENT(OUT) :: OPGD ! flag for PGD fields 00071 LOGICAL, INTENT(OUT) :: ORESET_BUDGETC ! flag for cumulated surface budget 00072 LOGICAL, INTENT(OUT) :: OWATER_BUDGET ! flag for isba water budget 00073 REAL, INTENT(OUT) :: PDIAG_TSTEP ! time-step for writing 00074 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00075 ! 00076 !* 0.2 Declarations of local variables 00077 ! ------------------------------- 00078 ! 00079 !------------------------------------------------------------------------------- 00080 ! 00081 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_ISBA',0,ZHOOK_HANDLE) 00082 K2M = 0 00083 OSURF_BUDGET = .FALSE. 00084 ! 00085 O2M_MIN_ZS = .FALSE. 00086 ORAD_BUDGET = .FALSE. 00087 ! 00088 OCOEF = .FALSE. 00089 OSURF_VARS = .FALSE. 00090 ! 00091 OSURF_EVAP_BUDGET = .FALSE. 00092 OSURF_MISC_BUDGET = .FALSE. 00093 OSURF_MISC_DIF = .FALSE. 00094 ! 00095 OSURF_BUDGETC = .FALSE. 00096 ! 00097 OPATCH_BUDGET = .TRUE. 00098 ! 00099 OPGD = .FALSE. 00100 ORESET_BUDGETC = .FALSE. 00101 ! 00102 OWATER_BUDGET = .FALSE. 00103 ! 00104 PDIAG_TSTEP = XUNDEF 00105 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_ISBA',1,ZHOOK_HANDLE) 00106 ! 00107 !------------------------------------------------------------------------------- 00108 ! 00109 END SUBROUTINE DEFAULT_DIAG_ISBA
1.8.0
