Ignore:
Timestamp:
2020-09-25T14:30:18+02:00 (7 months ago)
Author:
rlod
Message:

First step of nutrient sources from Antarctic Ice Sheet

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12740_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/TOP/trc.F90

    r12489 r13524  
    4040   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  ) ::  trc_o          !: prescribed tracer concentration in ocean for SBC 
    4141   INTEGER             , PUBLIC                            ::  nn_ice_tr      !: handling of sea ice tracers 
     42   INTEGER             , PUBLIC                            ::  nn_ais_tr      !: handling of Antarctic Ice Sheet tracers 
    4243 
    4344   !! interpolated gradient 
     
    6566   LOGICAL             , PUBLIC ::   ln_trcdta          !: Read inputs data from files 
    6667   LOGICAL             , PUBLIC ::   ln_trcbc           !: Enable surface, lateral or open boundaries conditions 
     68   LOGICAL             , PUBLIC ::   ln_trcais          !: Enable Antarctic Ice Sheet nutrient supply 
    6769   LOGICAL             , PUBLIC ::   ln_trcdmp          !: internal damping flag 
    6870   LOGICAL             , PUBLIC ::   ln_trcdmp_clo      !: internal damping flag on closed seas 
     
    9395      LOGICAL           ::   llcbc     ! read in a file or not 
    9496      LOGICAL           ::   llobc     ! read in a file or not 
     97      LOGICAL           ::   llais     ! read in a file or not 
    9598   END TYPE PTRACER 
    9699   ! 
     
    114117   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ln_trc_sbc    !: Use surface boundary condition data 
    115118   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ln_trc_cbc    !: Use coastal boundary condition data 
     119   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ln_trc_ais    !: Use Antarctic Ice Sheet boundary condition data 
    116120   LOGICAL , PUBLIC                                  ::   ln_rnf_ctl    !: remove runoff dilution on tracers 
    117121   REAL(wp), PUBLIC                                  ::   rn_sbc_time   !: Time scaling factor for SBC data (seconds in a day) 
     
    159163         &      ln_trc_ini(jptra)     ,                                                       & 
    160164         &      ln_trc_sbc(jptra)     , ln_trc_cbc(jptra)     , ln_trc_obc(jptra)     ,       & 
     165         &      ln_trc_ais(jptra)     ,                                                       & 
    161166         &      STAT = ierr(1)  ) 
    162167      ! 
Note: See TracChangeset for help on using the changeset viewer.