|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE INIT_IO_SURF_TXT_n(HMASK,HACTION) 00003 ! ###################### 00004 ! 00005 !!**** *INIT_IO_SURF_TXT_n* Keep in memory the output files 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !! 00011 !!** IMPLICIT ARGUMENTS 00012 !! ------------------ 00013 !! None 00014 !! 00015 !! REFERENCE 00016 !! --------- 00017 !! 00018 !! AUTHOR 00019 !! ------ 00020 !! V. Masson *Meteo France* 00021 !! 00022 !! MODIFICATIONS 00023 !! ------------- 00024 !! 00025 !! P. Le Moigne 04/2004: distinguish in and out file name 00026 !! P. Le Moigne 04/2006: special HACTION='GTMSK' to initialize 00027 !! a mask different of 'FULL ' in order 00028 !! to read dimensions only. 00029 ! 00030 !* 0. DECLARATIONS 00031 ! ------------ 00032 ! 00033 ! 00034 USE MODD_IO_SURF_TXT, ONLY : NMASK, NFULL, CMASK 00035 ! 00036 USE MODI_GET_LUOUT 00037 USE MODI_GET_DIM_FULL_n 00038 USE MODI_GET_SIZE_FULL_n 00039 USE MODI_GET_TYPE_DIM_n 00040 USE MODI_INIT_IO_SURF_MASK_n 00041 ! 00042 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00043 USE PARKIND1 ,ONLY : JPRB 00044 ! 00045 IMPLICIT NONE 00046 ! 00047 CHARACTER(LEN=6), INTENT(IN) :: HMASK 00048 CHARACTER(LEN=5), INTENT(IN) :: HACTION 00049 ! 00050 INTEGER :: ILU,IRET, IL, ILUOUT 00051 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00052 !------------------------------------------------------------------------------ 00053 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_TXT_N',0,ZHOOK_HANDLE) 00054 ! 00055 CALL GET_LUOUT('TEXTE ',ILUOUT) 00056 ! 00057 CALL GET_DIM_FULL_n(NFULL) 00058 ! 00059 CALL GET_SIZE_FULL_n('TEXTE ',NFULL,ILU) 00060 ! 00061 IL = ILU 00062 CALL GET_TYPE_DIM_n(HMASK,IL) 00063 CALL INIT_IO_SURF_MASK_n(HMASK, IL, ILUOUT, ILU, NMASK) 00064 ! 00065 CMASK = HMASK 00066 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_TXT_N',1,ZHOOK_HANDLE) 00067 !------------------------------------------------------------------------------ 00068 ! 00069 END SUBROUTINE INIT_IO_SURF_TXT_n
1.8.0
