7 hprogram,hmask,hscheme,haction)
48 USE modi_get_dim_full_n
49 USE modi_get_size_full_n
50 USE modi_get_type_dim_n
51 USE modi_init_io_surf_mask_n
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=6),
INTENT(IN) :: hmask
68 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
69 CHARACTER(LEN=5),
INTENT(IN) :: haction
73 CHARACTER(LEN=100):: ycomment
74 INTEGER :: ilu,iret, il, ifull
76 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_OL_N',0,zhook_handle)
86 IF (haction==
'READ')
THEN
88 'OFFLIN',
'DIM_FULL',ifull,iret)
102 hmask, il, iluout, ilu, nmask)
104 IF (haction==
'READ' .AND. lhook) CALL dr_hook(
'INIT_IO_SURF_OL_N',1,zhook_handle)
105 IF (haction==
'READ')
RETURN
107 IF (nrank==npio)
THEN
111 IF (xtstep_output == floor(xtstep_output/86400.)*86400)
THEN
113 ELSEIF (xtstep_output == floor(xtstep_output/3600.)*3600)
THEN
115 ELSEIF (xtstep_output == floor(xtstep_output/60.)*60)
THEN
121 IF (.NOT.ltime_written(1))
THEN
124 hprogram,
'time',xtstep_output/zden*xstartw,iresp,hcomment=ycomment)
125 ltime_written(1)=.true.
128 IF (hscheme.NE.
'NONE ')
THEN
130 IF (hmask==
'NATURE' .AND. .NOT.ltime_written(2))
THEN
133 hprogram,
'time',xtstep_output/zden*xstartw,iresp,hcomment=ycomment)
134 ltime_written(2)=.true.
137 IF (hmask==
'SEA ' .AND. .NOT.ltime_written(3))
THEN
140 hprogram,
'time',xtstep_output/zden*xstartw,iresp,hcomment=ycomment)
141 ltime_written(3)=.true.
144 IF (hmask==
'WATER ' .AND. .NOT.ltime_written(4))
THEN
147 hprogram,
'time',xtstep_output/zden*xstartw,iresp,hcomment=ycomment)
148 ltime_written(4)=.true.
151 IF (hmask==
'TOWN ' .AND. .NOT.ltime_written(5))
THEN
154 hprogram,
'time',xtstep_output/zden*xstartw,iresp,hcomment=ycomment)
155 ltime_written(5)=.true.
163 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_OL_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_dim_full_n(U, KDIM_FULL)
subroutine init_io_surf_ol_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine wlog_mpi(HLOG, PLOG, KLOG, KLOG2, OLOG)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)
subroutine init_io_surf_mask_n(DTCO, U, HMASK, KSIZE, KLUOUT, KFULL, KMASK)