|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE READ_NAM_PGD_SEABATHY(HPROGRAM, HSEABATHY, & 00003 HSEABATHYFILETYPE, HNCVARNAME, & 00004 PUNIF_SEABATHY) 00005 ! ############################################################## 00006 ! 00007 !!**** *READ_NAM_PGD_SEABATHY* reads namelist for SEABATHY 00008 !! 00009 !! PURPOSE 00010 !! ------- 00011 !! 00012 !! METHOD 00013 !! ------ 00014 !! 00015 ! 00016 !! EXTERNAL 00017 !! -------- 00018 !! 00019 !! IMPLICIT ARGUMENTS 00020 !! ------------------ 00021 !! 00022 !! REFERENCE 00023 !! --------- 00024 !! 00025 !! AUTHOR 00026 !! ------ 00027 !! 00028 !! C. Lebeaupin Brossier Meteo-France 00029 !! 00030 !! MODIFICATION 00031 !! ------------ 00032 !! 00033 !! Original 01/2008 00034 !! 00035 !---------------------------------------------------------------------------- 00036 ! 00037 !* 0. DECLARATION 00038 ! ----------- 00039 ! 00040 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF 00041 ! 00042 USE MODI_GET_LUOUT 00043 USE MODI_OPEN_NAMELIST 00044 USE MODI_CLOSE_NAMELIST 00045 ! 00046 USE MODE_POS_SURF 00047 ! 00048 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00049 USE PARKIND1 ,ONLY : JPRB 00050 ! 00051 IMPLICIT NONE 00052 ! 00053 !* 0.1 Declaration of arguments 00054 ! ------------------------ 00055 ! 00056 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program 00057 CHARACTER(LEN=28), INTENT(OUT) :: HSEABATHY ! file name for bathymetry 00058 CHARACTER(LEN=6), INTENT(OUT) :: HSEABATHYFILETYPE ! bathymetry data file type 00059 CHARACTER(LEN=28), INTENT(OUT) :: HNCVARNAME ! variable to read in netcdf 00060 ! file 00061 REAL, INTENT(OUT) :: PUNIF_SEABATHY ! uniform value of bathymetry 00062 ! 00063 ! 00064 !* 0.2 Declaration of local variables 00065 ! ------------------------------ 00066 ! 00067 INTEGER :: ILUOUT ! output listing logical unit 00068 INTEGER :: ILUNAM ! namelist file logical unit 00069 LOGICAL :: GFOUND ! flag when namelist is present 00070 ! 00071 !* 0.3 Declaration of namelists 00072 ! ------------------------ 00073 ! 00074 CHARACTER(LEN=28) :: YSEABATHY ! file name for bathymetry 00075 CHARACTER(LEN=6) :: YSEABATHYFILETYPE ! bathymetry data file type 00076 CHARACTER(LEN=28) :: YNCVARNAME ! variable to read in netcdf 00077 ! file 00078 REAL :: XUNIF_SEABATHY ! uniform value of bathymetry 00079 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00080 ! 00081 NAMELIST/NAM_SEABATHY/ YSEABATHY, YSEABATHYFILETYPE, YNCVARNAME, XUNIF_SEABATHY 00082 ! 00083 !------------------------------------------------------------------------------- 00084 ! 00085 !* 1. Initializations of defaults 00086 ! --------------------------- 00087 ! 00088 IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_SEABATHY',0,ZHOOK_HANDLE) 00089 XUNIF_SEABATHY = 300. 00090 YSEABATHY = ' ' 00091 YSEABATHYFILETYPE = ' ' 00092 YNCVARNAME='rose ' 00093 ! 00094 CALL GET_LUOUT(HPROGRAM,ILUOUT) 00095 ! 00096 !------------------------------------------------------------------------------- 00097 ! 00098 !* 2. Reading of namelist 00099 ! ------------------- 00100 ! 00101 CALL OPEN_NAMELIST(HPROGRAM,ILUNAM) 00102 ! 00103 CALL POSNAM(ILUNAM,'NAM_SEABATHY',GFOUND,ILUOUT) 00104 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_SEABATHY) 00105 ! 00106 CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM) 00107 ! 00108 !------------------------------------------------------------------------------- 00109 ! 00110 HSEABATHY = YSEABATHY ! file name for bathymetry 00111 HSEABATHYFILETYPE = YSEABATHYFILETYPE ! bathymetry data file type 00112 HNCVARNAME = YNCVARNAME ! variable to read in netcdf 00113 PUNIF_SEABATHY = XUNIF_SEABATHY ! uniform value of bathymetry 00114 IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_SEABATHY',1,ZHOOK_HANDLE) 00115 ! 00116 !------------------------------------------------------------------------------- 00117 ! 00118 END SUBROUTINE READ_NAM_PGD_SEABATHY
1.8.0
