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

Go to the documentation of this file.
00001 !     #########
00002        SUBROUTINE DIAG_INLINE_SURF_ATM_n (PHW, PHT, PPS, PRHOA, PTRAD, PEMIS, PSFU, PSFV, PSFCO2)
00003 !     ###############################################################################!
00004 !!****  *DIAG_INLINE_SURF_ATM_n * - Computes diagnostics during SURF_ATM time-step
00005 !!
00006 !!    PURPOSE
00007 !!    -------
00008 !
00009 !!**  METHOD
00010 !!    ------
00011 !!
00012 !!    REFERENCE
00013 !!    ---------
00014 !!      
00015 !!
00016 !!    AUTHOR
00017 !!    ------
00018 !!     P. LeMoigne
00019 !!
00020 !!    MODIFICATIONS
00021 !!    -------------
00022 !!      Original    02/2006
00023 !!------------------------------------------------------------------
00024 !
00025 
00026 !
00027 !
00028 USE MODD_DIAG_SURF_ATM_n, ONLY : LCOEF, XDIAG_UREF, XDIAG_ZREF, &
00029                                  XPS, XRHOA, XDIAG_TRAD, XDIAG_EMIS,&
00030                                  XSSO_FMU, XSSO_FMV, XAVG_SFCO2
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 REAL, DIMENSION(:), INTENT(IN)       :: PHW    ! atmospheric level height for wind
00040 REAL, DIMENSION(:), INTENT(IN)       :: PHT    ! atmospheric level height
00041 REAL, DIMENSION(:), INTENT(IN)       :: PPS    ! surface pressure
00042 REAL, DIMENSION(:), INTENT(IN)       :: PRHOA  ! air density
00043 REAL, DIMENSION(:), INTENT(IN)       :: PTRAD  ! radiative temperature at t (K)
00044 REAL, DIMENSION(:), INTENT(IN)       :: PEMIS  ! emissivity at t (-)
00045 REAL, DIMENSION(:), INTENT(IN)       :: PSFU   ! zonal momentum flux                   (Pa)
00046 REAL, DIMENSION(:), INTENT(IN)       :: PSFV   ! meridian momentum flux                (Pa)
00047 REAL, DIMENSION(:), INTENT(IN)       :: PSFCO2 ! CO2 flux                              (kg/m2/s)
00048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00049 !
00050 !*      0.2    declarations of local variables
00051 !
00052 !-------------------------------------------------------------------------------------
00053 !
00054 IF (LHOOK) CALL DR_HOOK('DIAG_INLINE_SURF_ATM_N',0,ZHOOK_HANDLE)
00055 IF (LCOEF) THEN
00056   XDIAG_UREF = PHW
00057   XDIAG_ZREF = PHT
00058 END IF
00059 !
00060 XRHOA = PRHOA
00061 XPS   = PPS
00062 XDIAG_TRAD = PTRAD
00063 XDIAG_EMIS = PEMIS
00064 !
00065 XSSO_FMU   = PSFU
00066 XSSO_FMV   = PSFV
00067 !
00068 XAVG_SFCO2 = PSFCO2
00069 !
00070 IF (LHOOK) CALL DR_HOOK('DIAG_INLINE_SURF_ATM_N',1,ZHOOK_HANDLE)
00071 !-------------------------------------------------------------------------------------
00072 !
00073 END SUBROUTINE DIAG_INLINE_SURF_ATM_n