SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/write_header

Go to the documentation of this file.
00001 !     #############################################################
00002       SUBROUTINE WRITE_HEADER_MNH
00003 !     #############################################################
00004 !
00005 !!****  * - routine to header-type fields in a lfi file to emulate a MesoNH file
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!     
00018 !!
00019 !!    IMPLICIT ARGUMENTS
00020 !!    ------------------
00021 !!
00022 !!
00023 !!    REFERENCE
00024 !!    ---------
00025 !!
00026 !!
00027 !!    AUTHOR
00028 !!    ------
00029 !!
00030 !!      V. Masson      *METEO-FRANCE*
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!
00035 !!      original                                                     21/05/08
00036 !----------------------------------------------------------------------------
00037 !
00038 !*      0.    DECLARATIONS
00039 !             ------------
00040 !
00041 USE MODI_FMWRIT
00042 !
00043 USE MODD_IO_SURF_LFI,        ONLY : CFILEOUT_LFI, CLUOUT_LFI, LMNH_COMPATIBLE, LCARTESIAN
00044 !
00045 !
00046 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00047 USE PARKIND1  ,ONLY : JPRB
00048 !
00049 IMPLICIT NONE
00050 !
00051 !*      0.1   Declarations of arguments
00052 !
00053 !*      0.2   Declarations of local variables
00054 !
00055  CHARACTER(LEN=100) :: YCOMMENT=' '
00056 INTEGER            :: IRESP
00057 INTEGER            :: INB ! number of articles in the file
00058  CHARACTER(LEN=28) :: YNAME
00059  CHARACTER(LEN=10) :: YBIBUSER =' '
00060 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00061 !----------------------------------------------------------------------------
00062 !
00063 IF (LHOOK) CALL DR_HOOK('WRITE_HEADER_MNH',0,ZHOOK_HANDLE)
00064  CALL FMOPEN(CFILEOUT_LFI,'UNKNOWN',CLUOUT_LFI,0,1,1,INB,IRESP)
00065 !
00066  CALL FMWRITN0(CFILEOUT_LFI,'MASDEV',CLUOUT_LFI,1,47,4,100,YCOMMENT,IRESP)
00067  CALL FMWRITN0(CFILEOUT_LFI,'BUGFIX',CLUOUT_LFI,1,0,4,100,YCOMMENT,IRESP)
00068  CALL FMWRITC0(CFILEOUT_LFI,'BIBUSER',CLUOUT_LFI,1,YBIBUSER,4,100,YCOMMENT,IRESP)
00069 YNAME=CFILEOUT_LFI
00070  CALL FMWRITC0(CFILEOUT_LFI,'MY_NAME',CLUOUT_LFI,1,YNAME,4,100,YCOMMENT,IRESP)
00071 YNAME=' '
00072  CALL FMWRITC0(CFILEOUT_LFI,'DAD_NAME',CLUOUT_LFI,1,YNAME,4,100,YCOMMENT,IRESP)
00073  CALL FMWRITC0(CFILEOUT_LFI,'PROGRAM',CLUOUT_LFI,1,'SURFEX',4,100,YCOMMENT,IRESP)
00074  CALL FMWRITN0(CFILEOUT_LFI,'KMAX',CLUOUT_LFI,1,0,4,100,YCOMMENT,IRESP)
00075  CALL FMWRITC0(CFILEOUT_LFI,'STORAGE_TYPE',CLUOUT_LFI,1,'SU',4,100,YCOMMENT,IRESP)
00076  CALL FMWRITL0(CFILEOUT_LFI,'CARTESIAN       ',CLUOUT_LFI,1,LCARTESIAN,4,100,YCOMMENT,IRESP)
00077  CALL FMWRITL0(CFILEOUT_LFI,'THINSHELL       ',CLUOUT_LFI,1,.TRUE.,4,100,YCOMMENT,IRESP)
00078 !
00079  CALL FMCLOS(CFILEOUT_LFI,'KEEP',CLUOUT_LFI,IRESP)
00080 IF (LHOOK) CALL DR_HOOK('WRITE_HEADER_MNH',1,ZHOOK_HANDLE)
00081 !
00082 !-------------------------------------------------------------------------------
00083 END SUBROUTINE WRITE_HEADER_MNH