SURFEX v7.3
General documentation of Surfex
|
00001 ! ###################### 00002 MODULE MODD_MASK 00003 ! ###################### 00004 ! 00005 !!**** *MODD_MASK 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !! 00011 !!** IMPLICIT ARGUMENTS 00012 !! ------------------ 00013 !! None 00014 !! 00015 !! REFERENCE 00016 !! --------- 00017 !! 00018 !! AUTHOR 00019 !! ------ 00020 !! S. Faroux *Meteo France* 00021 !! 00022 !! MODIFICATIONS 00023 !! ------------- 00024 !! Original 11/03/11 00025 ! 00026 !* 0. DECLARATIONS 00027 ! ------------ 00028 ! 00029 ! 00030 IMPLICIT NONE 00031 !------------------------------------------------------------------------------- 00032 ! 00033 INTEGER, ALLOCATABLE, DIMENSION(:), TARGET :: NMASK_FULL 00034 !$OMP THREADPRIVATE(NMASK_FULL) 00035 ! 00036 !------------------------------------------------------------------------------- 00037 ! 00038 END MODULE MODD_MASK 00039