SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TOPD/write_file

Go to the documentation of this file.
00001 !-----------------------------------------------------------------
00002 !     ##########################
00003       SUBROUTINE WRITE_FILE_MASKTOPD(KI)
00004 !     ##########################
00005 !
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !        
00010 !     
00011 !!**  METHOD
00012 !!    ------
00013 !
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!    none
00018 !!
00019 !!    IMPLICIT ARGUMENTS
00020 !!    ------------------ 
00021 !!      
00022 !!    REFERENCE
00023 !!    ---------
00024 !!     
00025 !!    AUTHOR
00026 !!    ------
00027 !!
00028 !!      B. Vincendon    * Meteo-France *
00029 !!
00030 !!    MODIFICATIONS
00031 !!    -------------
00032 !!
00033 !!      Original   11/2011
00034 !-------------------------------------------------------------------------------
00035 !
00036 !*       0.     DECLARATIONS
00037 !               ------------
00038 !
00039 USE MODD_TOPODYN, ONLY : CCAT, NNCAT
00040 USE MODD_COUPLING_TOPD, ONLY : NMASKI, NNPIX
00041 USE MODD_SURF_PAR,        ONLY : XUNDEF
00042 !
00043 USE MODI_OPEN_FILE
00044 USE MODI_CLOSE_FILE
00045 !
00046 USE MODE_GRIDTYPE_CONF_PROJ
00047 !
00048 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00049 USE PARKIND1  ,ONLY : JPRB
00050 !
00051 IMPLICIT NONE
00052 !
00053 !*      0.1    declarations of arguments
00054 !
00055 INTEGER, INTENT(IN)             :: KI    ! Grid dimensions
00056 !
00057 !*      0.2    declarations of local variables
00058 INTEGER           :: JCAT,JMESH,JPIX
00059 INTEGER           :: IUNIT
00060  CHARACTER(LEN=50) :: YNAME
00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00062 !-------------------------------------------------------------------------------
00063 IF (LHOOK) CALL DR_HOOK('WRITE_FILE_MASKTOPD',0,ZHOOK_HANDLE)
00064 !
00065 !*       0.     Initialization:
00066 !               ---------------
00067 !
00068 DO JCAT=1,NNCAT
00069   !
00070   YNAME = TRIM(CCAT(JCAT))//TRIM('.mask_surf')
00071   !
00072   CALL OPEN_FILE('ASCII ',IUNIT,YNAME,'FORMATTED',HACTION='WRITE')
00073   !
00074   DO JMESH=1,KI
00075     DO JPIX=1,NNPIX(JMESH)
00076       WRITE(IUNIT,*) NMASKI(JMESH,JCAT,JPIX)
00077     ENDDO
00078   ENDDO
00079   !
00080   CALL CLOSE_FILE('ASCII ',IUNIT)
00081   !
00082 ENDDO
00083 !
00084 IF (LHOOK) CALL DR_HOOK('WRITE_FILE_MASKTOPD',1,ZHOOK_HANDLE)
00085 !
00086 END SUBROUTINE WRITE_FILE_MASKTOPD