Ignore:
Timestamp:
2018-01-16T13:59:31+01:00 (4 years ago)
Author:
cetlod
Message:

v3.6 stable : bugfix on PISCES, see ticket #2003

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r9240 r9241  
    4848   LOGICAL  ::  ll_solub 
    4949 
    50    INTEGER , PARAMETER  :: jpriv  = 7   !: Maximum number of river input fields 
    51    INTEGER , PARAMETER  :: jr_dic = 1   !: index of dissolved inorganic carbon 
    52    INTEGER , PARAMETER  :: jr_doc = 2   !: index of dissolved organic carbon 
    53    INTEGER , PARAMETER  :: jr_din = 3   !: index of dissolved inorganic nitrogen 
    54    INTEGER , PARAMETER  :: jr_don = 4   !: index of dissolved organic nitrogen 
    55    INTEGER , PARAMETER  :: jr_dip = 5   !: index of dissolved inorganic phosporus 
    56    INTEGER , PARAMETER  :: jr_dop = 6   !: index of dissolved organic phosphorus 
    57    INTEGER , PARAMETER  :: jr_dsi = 7   !: index of dissolved silicate 
     50   INTEGER, PARAMETER  :: jpriv  = 7   !: Maximum number of river input fields 
     51   INTEGER, PARAMETER  :: jr_dic = 1   !: index of dissolved inorganic carbon 
     52   INTEGER, PARAMETER  :: jr_doc = 2   !: index of dissolved organic carbon 
     53   INTEGER, PARAMETER  :: jr_din = 3   !: index of dissolved inorganic nitrogen 
     54   INTEGER, PARAMETER  :: jr_don = 4   !: index of dissolved organic nitrogen 
     55   INTEGER, PARAMETER  :: jr_dip = 5   !: index of dissolved inorganic phosporus 
     56   INTEGER, PARAMETER  :: jr_dop = 6   !: index of dissolved organic phosphorus 
     57   INTEGER, PARAMETER  :: jr_dsi = 7   !: index of dissolved silicate 
    5858 
    5959 
     
    7777   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: hydrofe   !: Hydrothermal vent supply of iron 
    7878 
    79    REAL(wp), PUBLIC :: sumdepsi, rivalkinput, rivdicinput, nitdepinput 
     79   REAL(wp), PUBLIC :: sedsilfrac, sedcalfrac 
     80   REAL(wp), PUBLIC :: rivalkinput, rivdicinput 
    8081   REAL(wp), PUBLIC :: rivdininput, rivdipinput, rivdsiinput 
    8182 
     
    267268      ! dust input from the atmosphere 
    268269      ! ------------------------------ 
    269       sumdepsi  = 0._wp 
    270270      IF( ln_dust ) THEN  
    271271         ! 
     
    365365      ! nutrient input from dust 
    366366      ! ------------------------ 
    367       nitdepinput = 0._wp 
    368367      IF( ln_ndepo ) THEN 
    369368         ! 
     
    473472      ENDIF 
    474473      ! 
     474      sedsilfrac = 0.03     ! percentage of silica loss in the sediments 
     475      sedcalfrac = 0.6      ! percentage of calcite loss in the sediments 
     476      ! 
    475477      IF( nn_timing == 1 )  CALL timing_stop('p4z_sbc_init') 
    476478      ! 
Note: See TracChangeset for help on using the changeset viewer.