|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ####################################################### 00002 SUBROUTINE CLOSE_AUX_IO_SURF_ASC(HFILE,HFILETYPE) 00003 ! ####################################################### 00004 ! 00005 !!**** *CLOSE_AUX_IO_SURF* - chooses the routine to OPENialize IO 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 !! S.Malardel *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 09/2003 00031 !! Modified 04/2004 by P. LeMoigne: add HACTION if ASCII mode selected 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_IO_SURF_ASC,ONLY:NUNIT,CMASK,NMASK,NFULL 00038 ! 00039 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00040 USE PARKIND1 ,ONLY : JPRB 00041 ! 00042 IMPLICIT NONE 00043 ! 00044 !* 0.1 Declarations of arguments 00045 ! ------------------------- 00046 ! 00047 CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name 00048 CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program 00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00050 ! 00051 !* 0.2 Declarations of local variables 00052 ! ------------------------------- 00053 ! 00054 !------------------------------------------------------------------------------- 00055 ! 00056 IF (LHOOK) CALL DR_HOOK('CLOSE_AUX_IO_SURF_ASC',0,ZHOOK_HANDLE) 00057 CLOSE(NUNIT) 00058 ! 00059 NFULL=0 00060 NUNIT=0 00061 CMASK=' ' 00062 DEALLOCATE(NMASK) 00063 IF (LHOOK) CALL DR_HOOK('CLOSE_AUX_IO_SURF_ASC',1,ZHOOK_HANDLE) 00064 ! 00065 !------------------------------------------------------------------------------- 00066 ! 00067 END SUBROUTINE CLOSE_AUX_IO_SURF_ASC
1.8.0
