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

par_cfc.F90 4.4 KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 
  1. MODULE par_cfc
    2. 

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

  3.    !!                        ***  par_cfc  ***
    4. 

  4.    !! TOP :   set the CFC parameters
    5. 

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

  6.    !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
    7. 

  7.    !!----------------------------------------------------------------------
    8. 

  8.    !! NEMO/TOP 3.3 , NEMO Consortium (2010)
    9. 

  9.    !! $Id: par_cfc.F90 3680 2012-11-27 14:42:24Z rblod $ 
    10. 

  10.    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    11. 

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

  12.    USE par_pisces , ONLY : jp_pisces       !: number of tracers in PISCES
    13. 

  13.    USE par_pisces , ONLY : jp_pisces_2d    !: number of 2D diag in PISCES
    14. 

  14.    USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES
    15. 

  15.    USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
    16. 

  16.    
    17. 

  17.    USE par_my_trc , ONLY : jp_my_trc       !: number of tracers in MY_TRC
    18. 

  18.    USE par_my_trc , ONLY : jp_my_trc_2d    !: number of 2D diag in MY_TRC
    19. 

  19.    USE par_my_trc , ONLY : jp_my_trc_3d    !: number of 3D diag in MY_TRC
    20. 

  20.    USE par_my_trc , ONLY : jp_my_trc_trd   !: number of biological diag in MY_TRC
    21. 

  21. 

  22.    IMPLICIT NONE
    23. 

  23. 

  24.    INTEGER, PARAMETER ::   jp_lc      =  jp_pisces     + jp_my_trc     !: cumulative number of passive tracers
    25. 

  25.    INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d  + jp_my_trc_2d  !:
    26. 

  26.    INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d  + jp_my_trc_3d  !:
    27. 

  27.    INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd + jp_my_trc_trd !:
    28. 

  28.    
    29. 

  29. #if defined key_cfc
    30. 

  30.    !!---------------------------------------------------------------------
    31. 

  31.    !!   'key_cfc'   :                                          CFC tracers
    32. 

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

  33.    LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .TRUE.      !: CFC flag 
    34. 

  34.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  2          !: number of passive tracers
    35. 

  35.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  2 * jp_cfc !: additional 2d output arrays ('key_trc_diaadd')
    36. 

  36.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: additional 3d output arrays ('key_trc_diaadd')
    37. 

  37.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
    38. 

  38.    ! Enable trace gases according to total number jp_cfc
    39. 

  39.    LOGICAL, PUBLIC, PARAMETER ::   lp_cfc11   = .false.     !: use CFC11
    40. 

  40.    LOGICAL, PUBLIC, PARAMETER ::   lp_cfc12   = .true.      !: use CFC12
    41. 

  41.    LOGICAL, PUBLIC, PARAMETER ::   lp_sf6     = .true.      !: use SF6
    42. 

  42. #else
    43. 

  43.    !!---------------------------------------------------------------------
    44. 

  44.    !!   Default     :                                       No CFC tracers
    45. 

  45.    !!---------------------------------------------------------------------
    46. 

  46.    LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .FALSE.     !: CFC flag 
    47. 

  47.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0          !: No CFC tracers
    48. 

  48.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0          !: No CFC additional 2d output arrays 
    49. 

  49.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: No CFC additional 3d output arrays 
    50. 

  50.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
    51. 

  51.    LOGICAL, PUBLIC, PARAMETER ::   lp_cfc11   = .false.     !: use CFC11
    52. 

  52.    LOGICAL, PUBLIC, PARAMETER ::   lp_cfc12   = .false.     !: use CFC12
    53. 

  53.    LOGICAL, PUBLIC, PARAMETER ::   lp_sf6     = .false.     !: use SF6
    54. 

  54. #endif
    55. 

  55. 

  56.    ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done)
    57. 

  57.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0     = jp_lc + 1       !: First index of CFC tracers
    58. 

  58.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1     = jp_lc + jp_cfc  !: Last  index of CFC tracers
    59. 

  59.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_2d  = jp_lc_2d  + 1       !: First index of CFC tracers
    60. 

  60.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_2d  = jp_lc_2d  + jp_cfc_2d  !: Last  index of CFC tracers
    61. 

  61.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_3d  = jp_lc_3d  + 1       !: First index of CFC tracers
    62. 

  62.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_3d  = jp_lc_3d  + jp_cfc_3d  !: Last  index of CFC tracers
    63. 

  63.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_trd = jp_lc_trd + 1       !: First index of CFC tracers
    64. 

  64.    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_trd = jp_lc_trd + jp_cfc_trd  !: Last  index of CFC tracers
    65. 

  65. 

  66.    !!======================================================================
    67. 

  67. END MODULE par_cfc
    68.