|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITE_ISBA_n(HPROGRAM,HWRITE,OLAND_USE) 00003 ! #################################### 00004 ! 00005 !!**** *WRITE_ISBA_n* - routine to write 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 !! V. Masson *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 01/2003 00031 !! B. Decharme 07/2011 : Suppress pgd output 00032 ! B. Decharme 07/2011 : land_use key for writing semi-prognostic variables 00033 !------------------------------------------------------------------------------- 00034 ! 00035 !* 0. DECLARATIONS 00036 ! ------------ 00037 ! 00038 USE MODD_WRITE_SURF_ATM, ONLY : LNOWRITE_CANOPY 00039 USE MODD_DIAG_SURF_ATM_n, ONLY: LSELECT 00040 USE MODI_INIT_IO_SURF_n 00041 USE MODI_WRITESURF_ISBA_n 00042 USE MODI_WRITESURF_ISBA_CONF_n 00043 USE MODI_END_IO_SURF_n 00044 USE MODI_WRITESURF_ISBA_CANOPY_n 00045 ! 00046 ! 00047 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00048 USE PARKIND1 ,ONLY : JPRB 00049 ! 00050 IMPLICIT NONE 00051 ! 00052 !* 0.1 Declarations of arguments 00053 ! ------------------------- 00054 ! 00055 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes 00056 CHARACTER(LEN=3), INTENT(IN) :: HWRITE ! 'PREP' : does not write SBL XUNDEF fields 00057 ! ! 'ALL' : all fields are written 00058 LOGICAL, INTENT(IN) :: OLAND_USE ! 00059 ! 00060 !* 0.2 Declarations of local variables 00061 ! ------------------------------- 00062 ! 00063 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00064 !------------------------------------------------------------------------------- 00065 ! 00066 ! Initialisation for IO 00067 ! 00068 IF (LHOOK) CALL DR_HOOK('WRITE_ISBA_N',0,ZHOOK_HANDLE) 00069 CALL INIT_IO_SURF_n(HPROGRAM,'NATURE','ISBA ','WRITE') 00070 ! 00071 !* 1. Selection of surface scheme 00072 ! --------------------------- 00073 ! 00074 CALL WRITESURF_ISBA_CONF_n(HPROGRAM) 00075 CALL WRITESURF_ISBA_n(HPROGRAM,OLAND_USE) 00076 ! 00077 IF ((.NOT.LNOWRITE_CANOPY).OR.LSELECT) CALL WRITESURF_ISBA_CANOPY_n(HPROGRAM,HWRITE) 00078 ! 00079 !------------------------------------------------------------------------------- 00080 ! 00081 ! End of IO 00082 ! 00083 CALL END_IO_SURF_n(HPROGRAM) 00084 IF (LHOOK) CALL DR_HOOK('WRITE_ISBA_N',1,ZHOOK_HANDLE) 00085 ! 00086 END SUBROUTINE WRITE_ISBA_n
1.8.0
