|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !----------------------------------------------------------------- 00002 ! ####################### 00003 SUBROUTINE ISBA_TO_TOPD(PVARI,PVART) 00004 ! ####################### 00005 ! 00006 !!**** *ISBA_TO_TOPD* 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 ! 00011 ! 00012 ! 00013 ! 00014 !!** METHOD 00015 !! ------ 00016 ! 00017 !! EXTERNAL 00018 !! -------- 00019 !! 00020 !! none 00021 !! 00022 !! IMPLICIT ARGUMENTS 00023 !! ------------------ 00024 !! 00025 !! 00026 !! REFERENCE 00027 !! --------- 00028 !! 00029 !! AUTHOR 00030 !! ------ 00031 !! 00032 !! K. Chancibault * LTHE / Meteo-France * 00033 !! 00034 !! MODIFICATIONS 00035 !! ------------- 00036 !! 00037 !! Original 12/2003 00038 !------------------------------------------------------------------------------- 00039 ! 00040 !* 0. DECLARATIONS 00041 ! ------------ 00042 ! 00043 USE MODD_TOPODYN, ONLY : NNCAT, NNMC 00044 USE MODD_COUPLING_TOPD, ONLY : NMASKT 00045 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF 00046 ! 00047 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00048 USE PARKIND1 ,ONLY : JPRB 00049 ! 00050 IMPLICIT NONE 00051 ! 00052 !* 0.1 declarations of arguments 00053 ! 00054 REAL, DIMENSION(:), INTENT(IN) :: PVARI ! variable from ISBA grid 00055 REAL, DIMENSION(:,:), INTENT(OUT) :: PVART ! variable for TOPODYN grid 00056 ! 00057 !* 0.2 declarations of local variables 00058 ! 00059 INTEGER :: JJ, JI ! loop control 00060 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00061 !------------------------------------------------------------------------------- 00062 IF (LHOOK) CALL DR_HOOK('ISBA_TO_TOPD',0,ZHOOK_HANDLE) 00063 ! 00064 !* 1. ISBA => TOPODYN-LAT 00065 ! ------------------- 00066 ! 00067 PVART(:,:)=XUNDEF 00068 DO JJ=1,NNCAT 00069 DO JI=1,NNMC(JJ) 00070 IF (NMASKT(JJ,JI)/=NUNDEF) PVART(JJ,JI) = PVARI(NMASKT(JJ,JI)) 00071 ENDDO 00072 ENDDO 00073 ! 00074 IF (LHOOK) CALL DR_HOOK('ISBA_TO_TOPD',1,ZHOOK_HANDLE) 00075 ! 00076 END SUBROUTINE ISBA_TO_TOPD
1.8.0
