SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TRIP/restart

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE RESTART_TRIP_n (KLUOUT)
00003 !     ################################
00004 !
00005 !!****  *RESTART_TRIP_n*  
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !     TRIP river routing restart.
00011 !     
00012 !!      
00013 !!    AUTHOR
00014 !!    ------
00015 !!      B. Decharme     
00016 !!
00017 !!    MODIFICATIONS
00018 !!    -------------
00019 !!      Original    28/05/05 
00020 !-------------------------------------------------------------------------------
00021 !
00022 !*       0.     DECLARATIONS
00023 !               ------------
00024 !
00025 USE MODE_RW_TRIP
00026 !
00027 USE MODD_TRIP_n,   ONLY : CGROUNDW, LFLOODT, LPRINT_TRIP, XLEN, &
00028                             XSURF_STO, XGROUND_STO, XFLOOD_STO,  &
00029                             XFFLOOD, XHFLOOD  
00030 !
00031 !
00032 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00033 USE PARKIND1  ,ONLY : JPRB
00034 !
00035 IMPLICIT NONE
00036 !
00037 !*      0.1    declarations of arguments
00038 !
00039 INTEGER, INTENT(IN)             :: KLUOUT
00040 !
00041 !*      0.2    declarations of local variables
00042 !
00043  CHARACTER(LEN=15), PARAMETER :: YFILE ='TRIP_RESTART.nc'
00044  CHARACTER(LEN=20)            :: YVNAME
00045 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00046 !
00047 !-------------------------------------------------------------------------------
00048 !
00049 ! * Store output in diag file
00050 !
00051 IF (LHOOK) CALL DR_HOOK('RESTART_TRIP_N',0,ZHOOK_HANDLE)
00052 YVNAME = 'SURF_STO'
00053  CALL WRITE_TRIP(KLUOUT,YFILE,YVNAME,XLEN,XSURF_STO)   
00054 !
00055 IF(CGROUNDW/='DEF')THEN
00056   YVNAME = 'GROUND_STO'
00057   CALL WRITE_TRIP(KLUOUT,YFILE,YVNAME,XLEN,XGROUND_STO)
00058 ENDIF
00059 !
00060 IF(LFLOODT)THEN
00061   YVNAME = 'FLOOD_STO'
00062   CALL WRITE_TRIP(KLUOUT,YFILE,YVNAME,XLEN,XFLOOD_STO)           
00063   YVNAME = 'FFLOOD_T'
00064   CALL WRITE_TRIP(KLUOUT,YFILE,YVNAME,XLEN,XFFLOOD)        
00065   YVNAME = 'HFLOOD_T'
00066   CALL WRITE_TRIP(KLUOUT,YFILE,YVNAME,XLEN,XHFLOOD)        
00067 ENDIF
00068 !
00069 IF(LPRINT_TRIP)WRITE(KLUOUT,*)YFILE,' ended successfully !'
00070 IF (LHOOK) CALL DR_HOOK('RESTART_TRIP_N',1,ZHOOK_HANDLE)
00071 !
00072 !-------------------------------------------------------------------------------
00073 END SUBROUTINE RESTART_TRIP_n