SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/assim

Go to the documentation of this file.
00001 !     ###############################################################################
00002 SUBROUTINE ASSIM_NATURE_n(HPROGRAM,KI,                                    &
00003                           PCON_RAIN, PSTRAT_RAIN, PCON_SNOW, PSTRAT_SNOW, &
00004                           PCLOUDS,   PLSM,        PEVAPTR,   PEVAP,       & 
00005                           PSWEC,     PTSC,                                &
00006                           PTS,       PT2M,        PHU2M,     PSWE,        &
00007                           HTEST )
00008 
00009 !     ###############################################################################
00010 !
00011 !!****  *ASSIM_NATURE_n * - Chooses the surface assimilation schemes for natural continental parts  
00012 !!
00013 !!    PURPOSE
00014 !!    -------
00015 !!
00016 !!**  METHOD
00017 !!    ------
00018 !!
00019 !!    REFERENCE
00020 !!    ---------
00021 !!      
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!     T. Aspelien
00026 !!
00027 !!    MODIFICATIONS
00028 !!    -------------
00029 !!      Original    04/2012
00030 !!--------------------------------------------------------------------
00031 !
00032 USE MODD_SURF_ATM_n, ONLY : CNATURE
00033 USE YOMHOOK,         ONLY : LHOOK,   DR_HOOK
00034 USE PARKIND1,        ONLY : JPRB
00035 !
00036 USE MODI_ABOR1_SFX
00037 USE MODI_ASSIM_ISBA_n
00038 !
00039 IMPLICIT NONE
00040 !
00041 !*      0.1    declarations of arguments
00042 !
00043  CHARACTER(LEN=6),    INTENT(IN) :: HPROGRAM  ! program calling surf. schemes
00044 INTEGER,             INTENT(IN) :: KI
00045 REAL, DIMENSION(KI), INTENT(IN) :: PCON_RAIN
00046 REAL, DIMENSION(KI), INTENT(IN) :: PSTRAT_RAIN
00047 REAL, DIMENSION(KI), INTENT(IN) :: PCON_SNOW
00048 REAL, DIMENSION(KI), INTENT(IN) :: PSTRAT_SNOW
00049 REAL, DIMENSION(KI), INTENT(IN) :: PCLOUDS
00050 REAL, DIMENSION(KI), INTENT(IN) :: PLSM
00051 REAL, DIMENSION(KI), INTENT(IN) :: PEVAPTR
00052 REAL, DIMENSION(KI), INTENT(IN) :: PEVAP
00053 REAL, DIMENSION(KI), INTENT(IN) :: PSWEC
00054 REAL, DIMENSION(KI), INTENT(IN) :: PTSC
00055 REAL, DIMENSION(KI), INTENT(IN) :: PTS
00056 REAL, DIMENSION(KI), INTENT(IN) :: PT2M
00057 REAL, DIMENSION(KI), INTENT(IN) :: PHU2M
00058 REAL, DIMENSION(KI), INTENT(IN) :: PSWE
00059  CHARACTER(LEN=2),    INTENT(IN) :: HTEST ! must be equal to 'OK'
00060 !
00061 !*      0.2    declarations of local variables
00062 !
00063 !-------------------------------------------------------------------------------------
00064 !
00065 REAL(KIND=JPRB)                :: ZHOOK_HANDLE
00066 
00067 IF (LHOOK) CALL DR_HOOK('ASSIM_NATURE_N',0,ZHOOK_HANDLE)
00068 
00069 IF (HTEST/='OK') THEN
00070   CALL ABOR1_SFX('ASSIM_NATURE_n: FATAL ERROR DURING ARGUMENT TRANSFER')
00071 END IF
00072 
00073 IF (CNATURE=='ISBA  ') THEN
00074 
00075   CALL ASSIM_ISBA_n(HPROGRAM,KI,                                    &
00076                     PCON_RAIN, PSTRAT_RAIN, PCON_SNOW, PSTRAT_SNOW, &
00077                     PCLOUDS,   PLSM,        PEVAPTR,   PEVAP,       &
00078                     PSWEC,     PTSC,                                &
00079                     PTS,       PT2M,        PHU2M,     PSWE,        &
00080                     HTEST )
00081 ELSE
00082   WRITE(*,*) 'No assimilation done for scheme: ',TRIM(CNATURE)
00083 END IF
00084 
00085 IF (LHOOK) CALL DR_HOOK('ASSIM_NATURE_N',1,ZHOOK_HANDLE)
00086 !
00087 !-------------------------------------------------------------------------------------
00088 !
00089 END SUBROUTINE ASSIM_NATURE_n