|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITE_PGD_TEB_n(HPROGRAM) 00003 ! #################################### 00004 ! 00005 !!**** *WRITE_PGD_TEB_n* - routine to write pgd surface variables in their respective files 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 !! B. Decharme *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 05/2011 00031 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 USE MODI_INIT_IO_SURF_n 00037 USE MODI_WRITESURF_PGD_TEB_n 00038 USE MODI_END_IO_SURF_n 00039 USE MODI_GOTO_TEB 00040 ! 00041 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00042 USE PARKIND1 ,ONLY : JPRB 00043 ! 00044 IMPLICIT NONE 00045 ! 00046 !* 0.1 Declarations of arguments 00047 ! ------------------------- 00048 ! 00049 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes 00050 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00051 ! ! 'ALL' : all fields are written 00052 ! 00053 !* 0.2 Declarations of local variables 00054 ! ------------------------------- 00055 ! 00056 !------------------------------------------------------------------------------- 00057 ! 00058 ! 00059 ! Initialisation for IO 00060 ! 00061 IF (LHOOK) CALL DR_HOOK('WRITE_PGD_TEB_N',0,ZHOOK_HANDLE) 00062 CALL INIT_IO_SURF_n(HPROGRAM,'TOWN ','TEB ','WRITE') 00063 ! 00064 !* 1. Selection of surface scheme 00065 ! --------------------------- 00066 ! 00067 CALL GOTO_TEB(1) 00068 CALL WRITESURF_PGD_TEB_n(HPROGRAM) 00069 ! 00070 !------------------------------------------------------------------------------- 00071 ! 00072 ! End of IO 00073 ! 00074 CALL END_IO_SURF_n(HPROGRAM) 00075 IF (LHOOK) CALL DR_HOOK('WRITE_PGD_TEB_N',1,ZHOOK_HANDLE) 00076 ! 00077 END SUBROUTINE WRITE_PGD_TEB_n
1.8.0
