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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE INIT_FROM_DATA_SEAFLUX_n(PSST)
00003 !     ##############################################################
00004 !
00005 !!**** *CONVERT_COVER* convert surface cover classes into secondary 
00006 !!                     physiographic variables for SEAFLUX
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!    METHOD
00012 !!    ------
00013 !!   
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    P. Le Moigne        Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original   09/2007
00032 !     
00033 !----------------------------------------------------------------------------
00034 !
00035 !*    0.     DECLARATION
00036 !            -----------
00037 !
00038 USE MODD_TYPE_DATE_SURF
00039 USE MODD_DATA_SEAFLUX_n,    ONLY : NTIME, XDATA_SST, TDATA_SST
00040 
00041 !
00042 !
00043 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00044 USE PARKIND1  ,ONLY : JPRB
00045 !
00046 IMPLICIT NONE
00047 !
00048 !*    0.1    Declaration of arguments
00049 !            ------------------------
00050 !
00051 REAL, DIMENSION(:),   OPTIONAL, INTENT(OUT)   :: PSST
00052 !
00053 !*    0.2    Declaration of local variables
00054 !            ------------------------------
00055 !
00056 INTEGER :: ITIME
00057 INTEGER :: ILUOUT
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !-------------------------------------------------------------------------------
00060 !
00061 !*    1.      TIME INITIALIZATION
00062 !             -------------------
00063 !
00064 IF (LHOOK) CALL DR_HOOK('INIT_FROM_DATA_SEAFLUX_N',0,ZHOOK_HANDLE)
00065 ITIME = NTIME
00066 ITIME = 1
00067 !
00068 !*    2.       VARIABLES
00069 !              ---------
00070 !
00071 ! sea surface temperature
00072 ! -----------------------
00073 !
00074 IF (PRESENT(PSST)) PSST(:) =  XDATA_SST (:,ITIME)
00075 IF (PRESENT(PSST)) PSST(:) =  XDATA_SST (:,1)
00076 IF (LHOOK) CALL DR_HOOK('INIT_FROM_DATA_SEAFLUX_N',1,ZHOOK_HANDLE)
00077 !
00078 !-------------------------------------------------------------------------------
00079 !
00080 END SUBROUTINE INIT_FROM_DATA_SEAFLUX_n