|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE END_IO_SURF_ASC_n(HPROGRAM) 00003 ! ####################################################### 00004 ! 00005 !!**** *END_IO_SURF_ASC_n* - routine to close IO files 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 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 USE MODD_IO_SURF_ASC, ONLY : NUNIT, NFULL, CMASK, LOPEN_READ 00037 ! 00038 USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO 00039 ! 00040 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00041 USE PARKIND1 ,ONLY : JPRB 00042 ! 00043 IMPLICIT NONE 00044 ! 00045 !* 0.1 Declarations of arguments 00046 ! ------------------------- 00047 ! 00048 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program 00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00050 ! 00051 !* 0.2 Declarations of local variables 00052 ! ------------------------------- 00053 ! 00054 ! 00055 !------------------------------------------------------------------------------- 00056 ! 00057 IF (LHOOK) CALL DR_HOOK('END_IO_SURF_ASC_N',0,ZHOOK_HANDLE) 00058 ! 00059 !$OMP BARRIER 00060 ! 00061 IF (NRANK==NPIO .AND. LOPEN_READ) THEN 00062 !$OMP SINGLE 00063 CLOSE(NUNIT) 00064 !$OMP END SINGLE 00065 ENDIF 00066 ! 00067 NFULL = 0 00068 ! 00069 NUNIT = 0 00070 ! 00071 CMASK = ' ' 00072 ! 00073 IF (LHOOK) CALL DR_HOOK('END_IO_SURF_ASC_N',1,ZHOOK_HANDLE) 00074 ! 00075 !------------------------------------------------------------------------------- 00076 ! 00077 END SUBROUTINE END_IO_SURF_ASC_n
1.8.0
