Home Explore Help
Sign In
pbarriat
/
ecearth3
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 937295dc99
Branches Tags
ecearth3
/
sources
/
nemo-3.6
/
NEMO
/
TOP_SRC
/
trc.F90

trc.F90 17 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228 
  1. MODULE trc
    2. 

  2.    !!======================================================================
    3. 

  3.    !!                      ***  MODULE  trc  ***
    4. 

  4.    !! Passive tracers   :  module for tracers defined
    5. 

  5.    !!======================================================================
    6. 

  6.    !! History :   OPA  !  1996-01  (M. Levy)  Original code
    7. 

  7.    !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
    8. 

  8.    !!   NEMO      1.0  !  2004-03  (C. Ethe)  Free form and module
    9. 

  9.    !!----------------------------------------------------------------------
    10. 

  10. #if defined key_top
    11. 

  11.    !!----------------------------------------------------------------------
    12. 

  12.    !!   'key_top'                                                TOP models
    13. 

  13.    !!----------------------------------------------------------------------
    14. 

  14.    USE par_oce
    15. 

  15.    USE par_trc
    16. 

  16.    
    17. 

  17.    IMPLICIT NONE
    18. 

  18.    PUBLIC
    19. 

  19. 

  20.    PUBLIC   trc_alloc   ! called by nemogcm.F90
    21. 

  21. 

  22.    !! parameters for the control of passive tracers
    23. 

  23.    !! ---------------------------------------------   
    24. 

  24.    INTEGER, PUBLIC                                                 ::   numnat_ref = -1   !: logical unit for the reference passive tracer namelist_top_ref
    25. 

  25.    INTEGER, PUBLIC                                                 ::   numnat_cfg = -1   !: logical unit for the reference passive tracer namelist_top_cfg
    26. 

  26.    INTEGER, PUBLIC                                                 ::   numont     = -1   !: logical unit for the reference passive tracer namelist output output.namelist.top
    27. 

  27.    INTEGER, PUBLIC                                                 ::   numstr        !: logical unit for tracer statistics
    28. 

  28.    INTEGER, PUBLIC                                                 ::   numrtr        !: logical unit for trc restart (read )
    29. 

  29.    INTEGER, PUBLIC                                                 ::   numrtw        !: logical unit for trc restart ( write )
    30. 

  30. 

  31.    !! passive tracers fields (before,now,after)
    32. 

  32.    !! --------------------------------------------------
    33. 

  33.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)               ::  trai           !: initial total tracer
    34. 

  34.    REAL(wp), PUBLIC                                                ::  areatot        !: total volume 
    35. 

  35.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  cvol           !: volume correction -degrad option- 
    36. 

  36.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  trn            !: tracer concentration for now time step
    37. 

  37.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  tra            !: tracer concentration for next time step
    38. 

  38.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  trb            !: tracer concentration for before time step
    39. 

  39.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  sbc_trc_b      !: Before sbc fluxes for tracers
    40. 

  40.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  sbc_trc        !: Now sbc fluxes for tracers
    41. 

  41. 

  42.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  trc_i          !: prescribed tracer concentration in sea ice for SBC
    43. 

  43.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  trc_o          !: prescribed tracer concentration in ocean for SBC
    44. 

  44.    INTEGER             , PUBLIC                                    ::  nn_ice_tr      !: handling of sea ice tracers
    45. 

  45. 

  46.    !! interpolated gradient
    47. 

  47.    !!--------------------------------------------------  
    48. 

  48.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  gtru           !: hor. gradient at u-points at bottom ocean level
    49. 

  49.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  gtrv           !: hor. gradient at v-points at bottom ocean level
    50. 

  50.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  gtrui          !: hor. gradient at u-points at top    ocean level
    51. 

  51.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  gtrvi          !: hor. gradient at v-points at top    ocean level
    52. 

  52.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)             ::  qsr_mean        !: daily mean qsr
    53. 

  53.    
    54. 

  54.    !! passive tracers  (input and output)
    55. 

  55.    !! ------------------------------------------  
    56. 

  56.    LOGICAL             , PUBLIC                                    ::  ln_rsttr       !: boolean term for restart i/o for passive tracers (namelist)
    57. 

  57.    LOGICAL             , PUBLIC                                    ::  lrst_trc       !: logical to control the trc restart write
    58. 

  58.    INTEGER             , PUBLIC                                    ::  nn_writetrc    !: time step frequency for concentration outputs (namelist)
    59. 

  59.    INTEGER             , PUBLIC                                    ::  nutwrs         !: output FILE for passive tracers restart
    60. 

  60.    INTEGER             , PUBLIC                                    ::  nutrst         !: logical unit for restart FILE for passive tracers
    61. 

  61.    INTEGER             , PUBLIC                                    ::  nn_rsttr       !: control of the time step ( 0 or 1 ) for pass. tr.
    62. 

  62.    CHARACTER(len = 80) , PUBLIC                                    ::  cn_trcrst_in   !: suffix of pass. tracer restart name (input)
    63. 

  63.    CHARACTER(len = 256), PUBLIC                                    ::  cn_trcrst_indir  !: restart input directory
    64. 

  64.    CHARACTER(len = 80) , PUBLIC                                    ::  cn_trcrst_out  !: suffix of pass. tracer restart name (output)
    65. 

  65.    CHARACTER(len = 256), PUBLIC                                    ::  cn_trcrst_outdir  !: restart output directory
    66. 

  66.    REAL(wp)            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)   ::  rdttrc         !: vertical profile of passive tracer time step
    67. 

  67.    LOGICAL             , PUBLIC                                    ::  ln_top_euler  !: boolean term for euler integration 
    68. 

  68.    LOGICAL             , PUBLIC                                    ::  ln_trcdta      !: Read inputs data from files
    69. 

  69.    LOGICAL             , PUBLIC                                    ::  ln_trcdmp      !: internal damping flag
    70. 

  70.    LOGICAL             , PUBLIC                                    ::  ln_trcdmp_clo  !: internal damping flag on closed seas
    71. 

  71.    INTEGER             , PUBLIC                                    ::  nittrc000       !: first time step of passive tracers model
    72. 

  72.    LOGICAL             , PUBLIC                                    ::  l_trcdm2dc     !: Diurnal cycle for TOP
    73. 

  73. 

  74.    !! Information for the ice module for tracers
    75. 

  75.    !! ------------------------------------------
    76. 

  76.    TYPE TRC_I_NML                    !--- Ice tracer namelist structure
    77. 

  77.          REAL(wp)         :: trc_ratio  ! ice-ocean trc ratio
    78. 

  78.          REAL(wp)         :: trc_prescr ! prescribed ice trc cc
    79. 

  79.          CHARACTER(len=2) :: ctrc_o     ! choice of ocean trc cc
    80. 

  80.    END TYPE
    81. 

  81. 

  82.    REAL(wp), DIMENSION(jptra), PUBLIC         :: trc_ice_ratio, & ! ice-ocean tracer ratio
    83. 

  83.                                                  trc_ice_prescr   ! prescribed ice trc cc
    84. 

  84.    CHARACTER(len=2), DIMENSION(jptra), PUBLIC :: cn_trc_o ! choice of ocean tracer cc
    85. 

  85. 

  86.    !! information for outputs
    87. 

  87.    !! --------------------------------------------------
    88. 

  88.    TYPE, PUBLIC :: PTRACER                                                            !: Passive tracer type
    89. 

  89.        CHARACTER(len = 20)  :: clsname  !: short name
    90. 

  90.        CHARACTER(len = 80)  :: cllname  !: long name
    91. 

  91.        CHARACTER(len = 20)  :: clunit   !: unit
    92. 

  92.        LOGICAL              :: llinit   !: read in a file or not
    93. 

  93.        LOGICAL              :: llsave   !: save the tracer or not
    94. 

  94.    END TYPE PTRACER
    95. 

  95.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ctrcnm         !: tracer name 
    96. 

  96.    CHARACTER(len = 80), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ctrcln         !: trccer field long name
    97. 

  97.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ctrcun         !: tracer unit
    98. 

  98.    LOGICAL            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ln_trc_wri     !: save the tracer or not
    99. 

  99. 

  100.    TYPE, PUBLIC :: DIAG                                                               !: passive trcacer ddditional diagnostic type
    101. 

  101.       CHARACTER(len = 20)  :: sname    !: short name
    102. 

  102.       CHARACTER(len = 80)  :: lname    !: long name
    103. 

  103.       CHARACTER(len = 20)  :: units    !: unit
    104. 

  104.    END TYPE DIAG
    105. 

  105. 

  106.    !! information for inputs
    107. 

  107.    !! --------------------------------------------------
    108. 

  108.    LOGICAL            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ln_trc_ini     !: Initialisation from data input file
    109. 

  109.    LOGICAL            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ln_trc_obc     !: Use open boundary condition data
    110. 

  110.    LOGICAL            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ln_trc_sbc     !: Use surface boundary condition data
    111. 

  111.    LOGICAL            , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)    ::  ln_trc_cbc     !: Use coastal boundary condition data
    112. 

  112. 

  113.    !! additional 2D/3D outputs namelist
    114. 

  114.    !! --------------------------------------------------
    115. 

  115.    REAL(wp)           , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,  :) ::   trc2d         !: additional 2d outputs array 
    116. 

  116.    REAL(wp)           , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   trc3d         !: additional 3d outputs array 
    117. 

  117.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc2d        !: 2d field short name
    118. 

  118.    CHARACTER(len = 80), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc2l        !: 2d field long name
    119. 

  119.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc2u        !: 2d field unit
    120. 

  120.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc3d        !: 3d field short name
    121. 

  121.    CHARACTER(len = 80), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc3l        !: 3d field long name
    122. 

  122.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   ctrc3u        !: 3d field unit
    123. 

  123.    LOGICAL            , PUBLIC                                        ::  ln_diatrc      !: boolean term for additional diagnostic
    124. 

  124.    INTEGER            , PUBLIC                                        ::  nn_writedia    !: frequency of additional outputs
    125. 

  125. 

  126.    !! Biological trends
    127. 

  127.    !! -----------------
    128. 

  128.    LOGICAL            , PUBLIC                                        ::  ln_diabio      !: boolean term for biological diagnostic
    129. 

  129.    INTEGER            , PUBLIC                                        ::  nn_writebio    !: frequency of biological outputs
    130. 

  130.    REAL(wp)           , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  trbio          !: biological trends
    131. 

  131.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::  ctrbio         !: bio field short name
    132. 

  132.    CHARACTER(len = 80), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::  ctrbil         !: bio field long name
    133. 

  133.    CHARACTER(len = 20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::  ctrbiu         !: bio field unit
    134. 

  134. 

  135.    !! variables to average over physics over passive tracer sub-steps.
    136. 

  136.    !! ----------------------------------------------------------------
    137. 

  137.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  un_tm       !: i-horizontal velocity average     [m/s]
    138. 

  138.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  vn_tm       !: j-horizontal velocity average     [m/s]
    139. 

  139.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  tsn_tm      !: t/s average     [m/s]
    140. 

  140.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  avt_tm      !: vertical diffusivity coeff. at  w-point   [m2/s]
    141. 

  141.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  rhop_tm     !: 
    142. 

  142. # if defined key_zdfddm
    143. 

  143.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  avs_tm      !: vertical double diffusivity coeff. at w-point   [m/s]
    144. 

  144. # endif
    145. 

  145. #if defined key_ldfslp
    146. 

  146.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  wslpi_tm    !: i-direction slope at u-, w-points
    147. 

  147.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  wslpj_tm    !: j-direction slope at u-, w-points
    148. 

  148.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  uslp_tm     !: j-direction slope at u-, w-points
    149. 

  149.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  vslp_tm     !: j-direction slope at u-, w-points
    150. 

  150. #endif
    151. 

  151. #if defined key_trabbl
    152. 

  152.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  ahu_bbl_tm  !: u-, w-points
    153. 

  153.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  ahv_bbl_tm  !: j-direction slope at u-, w-points
    154. 

  154.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  utr_bbl_tm  !: j-direction slope at u-, w-points
    155. 

  155.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  vtr_bbl_tm  !: j-direction slope at u-, w-points
    156. 

  156. #endif
    157. 

  157.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  sshn_tm     !: average ssh for the now step [m]
    158. 

  158.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  sshb_hold   !:hold sshb from the beginning of each sub-stepping[m]  
    159. 

  159. 

  160.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  rnf_tm     !: river runoff
    161. 

  161.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  h_rnf_tm   !: depth in metres to the bottom of the relevant grid box
    162. 

  162.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  hmld_tm    !: mixed layer depth average [m]
    163. 

  163.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  fr_i_tm    !: average ice fraction     [m/s]
    164. 

  164.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  emp_tm     !: freshwater budget: volume flux [Kg/m2/s]
    165. 

  165.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  fmmflx_tm  !: freshwater budget: freezing/melting [Kg/m2/s]
    166. 

  166.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  emp_b_hold !: hold emp from the beginning of each sub-stepping[m]  
    167. 

  167.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  qsr_tm     !: solar radiation average [m]
    168. 

  168.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  wndm_tm    !: 10m wind average [m]
    169. 

  169.    !
    170. 

  170. 

  171.    ! Temporary physical arrays for sub_stepping
    172. 

  172.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  tsn_temp
    173. 

  173.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  un_temp,vn_temp,wn_temp     !: hold current values of avt, un, vn, wn
    174. 

  174.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  avt_temp, rhop_temp     !: hold current values of avt, un, vn, wn
    175. 

  175.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  sshn_temp, sshb_temp, ssha_temp, rnf_temp,h_rnf_temp
    176. 

  176.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  hdivn_temp, rotn_temp
    177. 

  177.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  hdivb_temp, rotb_temp
    178. 

  178.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  hmld_temp, qsr_temp, fr_i_temp,wndm_temp
    179. 

  179.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  emp_temp, fmmflx_temp, emp_b_temp
    180. 

  180.    !
    181. 

  181. #if defined key_trabbl
    182. 

  182.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::  ahu_bbl_temp, ahv_bbl_temp, utr_bbl_temp, vtr_bbl_temp !: hold current values 
    183. 

  183. #endif
    184. 

  184.    !
    185. 

  185. #if defined key_ldfslp
    186. 

  186.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  wslpi_temp, wslpj_temp, uslp_temp, vslp_temp    !: hold current values 
    187. 

  187. #endif
    188. 

  188.    ! 
    189. 

  189. # if defined key_zdfddm
    190. 

  190.    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::  avs_temp      !: salinity vertical diffusivity coeff. at w-point   [m/s]
    191. 

  191. # endif
    192. 

  192.    !
    193. 

  193. 

  194.    !!----------------------------------------------------------------------
    195. 

  195.    !! NEMO/TOP 3.3.1 , NEMO Consortium (2010)
    196. 

  196.    !! $Id$
    197. 

  197.    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    198. 

  198.    !!----------------------------------------------------------------------
    199. 

  199. CONTAINS
    200. 

  200. 

  201.    INTEGER FUNCTION trc_alloc()
    202. 

  202.       !!-------------------------------------------------------------------
    203. 

  203.       !!                    *** ROUTINE trc_alloc ***
    204. 

  204.       !!-------------------------------------------------------------------
    205. 

  205.       USE lib_mpp, ONLY: ctl_warn
    206. 

  206.       !!-------------------------------------------------------------------
    207. 

  207.       !
    208. 

  208.       ALLOCATE( trn(jpi,jpj,jpk,jptra), trb(jpi,jpj,jpk,jptra), tra(jpi,jpj,jpk,jptra),       &  
    209. 

  209.          &      trc_i(jpi,jpj,jptra)  , trc_o(jpi,jpj,jptra)                          ,       &
    210. 

  210.          &      gtru (jpi,jpj,jptra)  , gtrv (jpi,jpj,jptra)                          ,       &
    211. 

  211.          &      gtrui(jpi,jpj,jptra)  , gtrvi(jpi,jpj,jptra)                          ,       &
    212. 

  212.          &      sbc_trc_b(jpi,jpj,jptra), sbc_trc(jpi,jpj,jptra)                      ,       &  
    213. 

  213.          &      cvol(jpi,jpj,jpk)     , rdttrc(jpk)           , trai(jptra)           ,       &
    214. 

  214.          &      ctrcnm(jptra)         , ctrcln(jptra)         , ctrcun(jptra)         ,       & 
    215. 

  215.          &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)     , qsr_mean(jpi,jpj)     ,  STAT = trc_alloc  )  
    216. 

  216. 

  217.       IF( trc_alloc /= 0 )   CALL ctl_warn('trc_alloc: failed to allocate arrays')
    218. 

  218.       !
    219. 

  219.    END FUNCTION trc_alloc
    220. 

  220. 

  221. #else
    222. 

  222.    !!----------------------------------------------------------------------
    223. 

  223.    !!  Empty module :                                     No passive tracer
    224. 

  224.    !!----------------------------------------------------------------------
    225. 

  225. #endif
    226. 

  226. 

  227.    !!======================================================================
    228. 

  228. END MODULE trc
    229.