49 USE modd_io_surf_lfi, ONLY : cfileout_lfi, cluout_lfi, lmnh_compatible, lcartesian
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=100) :: ycomment=
' '
64 CHARACTER(LEN=28) :: yname
65 CHARACTER(LEN=10) :: ybibuser =
' '
66 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'WRITE_HEADER_MNH',0,zhook_handle)
71 CALL fmopen(cfileout_lfi,
'UNKNOWN',cluout_lfi,0,1,1,inb,iresp)
73 CALL fmwritn0(cfileout_lfi,
'MASDEV',cluout_lfi,1,47,4,100,ycomment,iresp)
74 CALL fmwritn0(cfileout_lfi,
'BUGFIX',cluout_lfi,1,0,4,100,ycomment,iresp)
75 CALL fmwritc0(cfileout_lfi,
'BIBUSER',cluout_lfi,1,ybibuser,4,100,ycomment,iresp)
77 CALL fmwritc0(cfileout_lfi,
'MY_NAME',cluout_lfi,1,yname,4,100,ycomment,iresp)
79 CALL fmwritc0(cfileout_lfi,
'DAD_NAME',cluout_lfi,1,yname,4,100,ycomment,iresp)
80 CALL fmwritc0(cfileout_lfi,
'PROGRAM',cluout_lfi,1,
'SURFEX',4,100,ycomment,iresp)
81 CALL fmwritn0(cfileout_lfi,
'KMAX',cluout_lfi,1,0,4,100,ycomment,iresp)
82 CALL fmwritc0(cfileout_lfi,
'STORAGE_TYPE',cluout_lfi,1,
'SU',4,100,ycomment,iresp)
83 CALL fmwritl0(cfileout_lfi,
'CARTESIAN ',cluout_lfi,1,lcartesian,4,100,ycomment,iresp)
84 CALL fmwritl0(cfileout_lfi,
'THINSHELL ',cluout_lfi,1,.true.,4,100,ycomment,iresp)
86 CALL fmclos(cfileout_lfi,
'KEEP',cluout_lfi,iresp)
88 IF (lhook) CALL dr_hook(
'WRITE_HEADER_MNH',1,zhook_handle)