7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
38 USE modi_prep_inland_water
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
56 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
57 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
58 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
61 CHARACTER(LEN=28) :: yatmfile
62 CHARACTER(LEN=6) :: yatmfiletype
63 CHARACTER(LEN=28) :: ypgdfile
64 CHARACTER(LEN=6) :: ypgdfiletype
65 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'PREP_SURF_ATM',0,zhook_handle)
73 IF ( len_trim(hatmfile)>0 )
THEN
79 IF ( len_trim(hpgdfile)>0 )
THEN
85 IF ( len_trim(hatmfiletype)>0 )
THEN
86 yatmfiletype=hatmfiletype
91 IF ( len_trim(hpgdfiletype)>0 )
THEN
92 ypgdfiletype=hpgdfiletype
101 IF(ysc%U%NDIM_SEA>0) CALL
prep_sea(ysc%DTCO, ysc%UG, ysc%U, ysc%SM, &
102 hprogram,yatmfile,yatmfiletype,ypgdfile,ypgdfiletype)
109 ysc%UG, ysc%U, ysc%FM, ysc%WM, &
110 hprogram,yatmfile,yatmfiletype,ypgdfile,ypgdfiletype)
116 IF(ysc%U%NDIM_NATURE>0) CALL
prep_nature(ysc%DTCO, ysc%IM%ICP, ysc%IM%IG, &
117 ysc%IM%I, ysc%UG, ysc%U, ysc%USS, &
118 hprogram,yatmfile,yatmfiletype,ypgdfile,ypgdfiletype)
124 IF(ysc%U%NDIM_TOWN>0) CALL
prep_town(ysc%DTCO, ysc%UG, ysc%U, ysc%USS, &
125 ysc%IM%IG, ysc%IM%I, ysc%TM, ysc%GDM, ysc%GRM, &
126 hprogram,yatmfile,yatmfiletype,ypgdfile,ypgdfiletype)
130 IF (lhook) CALL dr_hook(
'PREP_SURF_ATM',1,zhook_handle)
subroutine clear_grib_index
subroutine prep_town(DTCO, UG, U, USS, IG, I, TM, GDM, GRM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_nature(DTCO, ICP, IG, I, UG, U, USS, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_surf_atm(YSC, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_inland_water(DTCO, USS, UG, U, FM, WM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_sea(DTCO, UG, U, SM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)