SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE OLD_NAME(HPROGRAM,HRECIN,HRECOUT) 00003 ! ####################################################### 00004 ! 00005 !!**** *OLD_NAME* - get the old name of a field for reading in an old SURFEX file 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 08/2011 00031 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 ! 00037 ! 00038 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00039 USE PARKIND1 ,ONLY : JPRB 00040 ! 00041 USE MODI_READ_SURF 00042 ! 00043 IMPLICIT NONE 00044 ! 00045 !* 0.1 Declarations of arguments 00046 ! ------------------------- 00047 ! 00048 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program 00049 CHARACTER(LEN=12), INTENT(IN) :: HRECIN ! name of field to be read 00050 CHARACTER(LEN=12), INTENT(OUT) :: HRECOUT ! name of field to be read is old file 00051 ! 00052 ! 00053 !* 0.2 Declarations of local variables 00054 ! ------------------------------- 00055 ! 00056 INTEGER :: IVERSION ! version of the old file 00057 INTEGER :: IBUGFIX ! bugfix of the old file 00058 ! 00059 INTEGER :: IRESP 00060 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00061 !------------------------------------------------------------------------------- 00062 ! 00063 IF (LHOOK) CALL DR_HOOK('OLD_NAME',0,ZHOOK_HANDLE) 00064 ! 00065 HRECOUT = HRECIN 00066 IF (HRECIN=='COVER_LIST') THEN 00067 CALL READ_SURF(HPROGRAM,'VERSION',IVERSION,IRESP) 00068 CALL READ_SURF(HPROGRAM,'BUG', IBUGFIX ,IRESP) 00069 IF (IVERSION<7 .OR. (IVERSION==7 .AND. IBUGFIX==0)) HRECOUT='COVER' 00070 END IF 00071 ! 00072 IF (LHOOK) CALL DR_HOOK('OLD_NAME',1,ZHOOK_HANDLE) 00073 !------------------------------------------------------------------------------- 00074 END SUBROUTINE OLD_NAME