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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE WRITESURF_WATFLUX_n(HPROGRAM)
00003 !     ########################################
00004 !
00005 !!****  *WRITESURF_WATFLUX_n* - writes WATFLUX fields
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      V. Masson   *Meteo France*      
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    01/2003 
00031 !-------------------------------------------------------------------------------
00032 !
00033 !*       0.    DECLARATIONS
00034 !              ------------
00035 !
00036 USE MODD_WATFLUX_n,      ONLY : XTS, XZ0, TTIME,  &
00037                                   LINTERPOL_TS, XTS_MTH  
00038 !
00039 USE MODI_WRITE_SURF
00040 !
00041 !
00042 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00043 USE PARKIND1  ,ONLY : JPRB
00044 !
00045 IMPLICIT NONE
00046 !
00047 !*       0.1   Declarations of arguments
00048 !              -------------------------
00049 !
00050  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling
00051 
00052 !
00053 !*       0.2   Declarations of local variables
00054 !              -------------------------------
00055 !
00056 INTEGER          :: JMTH,INMTH
00057  CHARACTER(LEN=2) :: YMTH
00058 !
00059 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
00060  CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
00061  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
00062 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00063 !
00064 !-------------------------------------------------------------------------------
00065 !
00066 !
00067 !*       3.     Prognostic fields:
00068 !               -----------------
00069 !
00070 !* water temperature
00071 !
00072 IF (LHOOK) CALL DR_HOOK('WRITESURF_WATFLUX_N',0,ZHOOK_HANDLE)
00073 IF(LINTERPOL_TS)THEN
00074 !
00075   INMTH=SIZE(XTS_MTH,2)
00076 !
00077   DO JMTH=1,INMTH
00078      WRITE(YMTH,'(I2)') (JMTH-1)
00079      YRECFM='TS_WATER'//ADJUSTL(YMTH(:LEN_TRIM(YMTH)))
00080      YCOMMENT='TS_WATER month t'//ADJUSTL(YMTH(:LEN_TRIM(YMTH)))
00081      CALL WRITE_SURF(HPROGRAM,YRECFM,XTS_MTH(:,JMTH),IRESP,HCOMMENT=YCOMMENT)
00082   ENDDO
00083 !
00084 ENDIF
00085 !
00086 YRECFM='TS_WATER'
00087 YCOMMENT='TS_WATER (K)'
00088  CALL WRITE_SURF(HPROGRAM,YRECFM,XTS(:),IRESP,HCOMMENT=YCOMMENT)
00089 !
00090 !-------------------------------------------------------------------------------
00091 !
00092 !*       4.     Semi-prognostic fields:
00093 !               ----------------------
00094 !
00095 !* roughness length
00096 !
00097 YRECFM='Z0WATER'
00098 YCOMMENT='Z0WATER (m)'
00099  CALL WRITE_SURF(HPROGRAM,YRECFM,XZ0(:),IRESP,HCOMMENT=YCOMMENT)
00100 !
00101 !
00102 !-------------------------------------------------------------------------------
00103 !
00104 !*       5.  Time
00105 !            ----
00106 !
00107 YRECFM='DTCUR'
00108 YCOMMENT='s'
00109  CALL WRITE_SURF(HPROGRAM,YRECFM,TTIME,IRESP,HCOMMENT=YCOMMENT)
00110 IF (LHOOK) CALL DR_HOOK('WRITESURF_WATFLUX_N',1,ZHOOK_HANDLE)
00111 !
00112 
00113 !-------------------------------------------------------------------------------
00114 !
00115 END SUBROUTINE WRITESURF_WATFLUX_n