SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/write_diag_seb

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE WRITE_DIAG_SEB_OCEAN_n(HPROGRAM)
00003 !     #################################
00004 !
00005 !!****  *WRITE_DIAG_SEB_OCEAN_n* - write the oceanic diagnostic fields
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    REFERENCE
00015 !!    ---------
00016 !!
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      C. Lebeaupin Brossier   *Meteo France*  
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original    04/2007
00025 !-------------------------------------------------------------------------------
00026 !
00027 !*       0.    DECLARATIONS
00028 !              ------------
00029 !
00030 USE MODD_OCEAN_n, ONLY : XSEAHMO
00031 USE MODD_DIAG_OCEAN_n
00032 !
00033 USE MODI_INIT_IO_SURF_n
00034 USE MODI_WRITE_SURF
00035 USE MODI_END_IO_SURF_n
00036 !
00037 !
00038 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00039 USE PARKIND1  ,ONLY : JPRB
00040 !
00041 IMPLICIT NONE
00042 !
00043 !*       0.1   Declarations of arguments
00044 !              -------------------------
00045 !
00046  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling
00047 !
00048 !*       0.2   Declarations of local variables
00049 !              -------------------------------
00050 !
00051 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
00052  CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
00053  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
00054 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00055 !
00056 !-------------------------------------------------------------------------------
00057 !
00058 !         Initialisation for IO
00059 !
00060 IF (LHOOK) CALL DR_HOOK('WRITE_DIAG_SEB_OCEAN_N',0,ZHOOK_HANDLE)
00061  CALL INIT_IO_SURF_n(HPROGRAM,'SEA   ','SEAFLX','WRITE')
00062 !
00063 !
00064 !*       2.     Mean values in OML :
00065 !               --------------------
00066 !
00067   YRECFM='TOML'
00068   YCOMMENT='X_Y_'//YRECFM
00069 !
00070   CALL WRITE_SURF(HPROGRAM,YRECFM,XTOCMOY(:),IRESP,HCOMMENT=YCOMMENT)
00071 !
00072   YRECFM='SOML'
00073   YCOMMENT='X_Y_'//YRECFM
00074 !
00075   CALL WRITE_SURF(HPROGRAM,YRECFM,XSOCMOY(:),IRESP,HCOMMENT=YCOMMENT)
00076 !
00077   YRECFM='UOML'
00078   YCOMMENT='X_Y_'//YRECFM
00079 !
00080   CALL WRITE_SURF(HPROGRAM,YRECFM,XUOCMOY(:),IRESP,HCOMMENT=YCOMMENT)
00081 !
00082   YRECFM='VOML'
00083   YCOMMENT='X_Y_'//YRECFM
00084 !
00085   CALL WRITE_SURF(HPROGRAM,YRECFM,XVOCMOY(:),IRESP,HCOMMENT=YCOMMENT)
00086 !
00087   YRECFM='DOML'
00088   YCOMMENT='X_Y_'//YRECFM
00089 !
00090   CALL WRITE_SURF(HPROGRAM,YRECFM,XDOCMOY(:),IRESP,HCOMMENT=YCOMMENT)
00091 !------------------------------------------------------------------------------
00092 !
00093 !         End of IO
00094 !
00095  CALL END_IO_SURF_n(HPROGRAM)
00096 IF (LHOOK) CALL DR_HOOK('WRITE_DIAG_SEB_OCEAN_N',1,ZHOOK_HANDLE)
00097 !
00098 !
00099 END SUBROUTINE WRITE_DIAG_SEB_OCEAN_n