|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITE_DST_CONF(KLUDES,HEMISPARAM) 00003 ! ####################################################### 00004 ! 00005 !!**** *WRITE_DST_CONF* - routine to write the configuration for DST 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. Grini *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 01/2003 00031 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 USE MODN_DST 00037 ! 00038 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00039 USE PARKIND1 ,ONLY : JPRB 00040 ! 00041 IMPLICIT NONE 00042 ! 00043 !* 0.1 Declarations of arguments 00044 ! ------------------------- 00045 ! 00046 INTEGER, INTENT(IN) :: KLUDES ! logical unit 00047 CHARACTER(LEN=5), INTENT(IN) :: HEMISPARAM ! Reference to paper where emission parameterization is proposed 00048 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00049 00050 ! 00051 !* 0.2 Declarations of local variables 00052 ! ------------------------------- 00053 ! 00054 ! 00055 !------------------------------------------------------------------------------- 00056 ! 00057 !* writing of namelist 00058 ! ------------------- 00059 ! 00060 IF (LHOOK) CALL DR_HOOK('WRITE_DST_CONF',0,ZHOOK_HANDLE) 00061 CEMISPARAM_DST=HEMISPARAM 00062 WRITE(UNIT=KLUDES,NML=NAM_SURF_DST) 00063 IF (LHOOK) CALL DR_HOOK('WRITE_DST_CONF',1,ZHOOK_HANDLE) 00064 ! 00065 !------------------------------------------------------------------------------- 00066 ! 00067 END SUBROUTINE WRITE_DST_CONF
1.8.0
