Ignore:
Timestamp:
2014-07-15T18:48:35+02:00 (6 years ago)
Author:
vancop
Message:

[sea ice tracer boundary conditions ORCA2_LIM2 PISCES]

Location:
branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r4611 r4719  
    3737   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  tra            !: traceur concentration for next time step 
    3838   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  trb            !: traceur concentration for before time step 
     39   ! MV 2013 fake bio sea ice model 
     40   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  trc_i          !: prescribed tracer concentration in sea ice for SBC 
     41   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  trc_o          !: prescribed tracer concentration in ocean for SBC 
     42   ! END MV 2013  
    3943 
    4044   !! interpolated gradient 
     
    186190         &      cvol(jpi,jpj,jpk)     , rdttrc(jpk)           , trai(jptra)           ,       & 
    187191         &      ctrcnm(jptra)         , ctrcln(jptra)         , ctrcun(jptra)         ,       &  
    188          &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)                             ,  STAT = trc_alloc  )   
    189  
     192         &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)                             ,       & 
     193   ! MV 2013 fake bio sea ice model 
     194         &      trc_i(jpi,jpj,jptra)  , trc_o(jpi,jpj,jptra)  , STAT = trc_alloc  )   
     195   ! END MV 2013 fake bio sea ice model 
    190196      IF( trc_alloc /= 0 )   CALL ctl_warn('trc_alloc: failed to allocate arrays') 
    191197      ! 
  • branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r4607 r4719  
    3131   USE lib_mpp         ! distribued memory computing library 
    3232   USE sbc_oce 
    33   
     33   USE trcice          ! MV prescribed bio tracers 
     34 
    3435   IMPLICIT NONE 
    3536   PRIVATE 
     
    100101      IF( lk_c14b    )       CALL trc_ini_c14b         ! C14 bomb  tracer 
    101102      IF( lk_my_trc  )       CALL trc_ini_my_trc       ! MY_TRC  tracers 
     103 
     104      ! MV 
     105      CALL trc_ice_ini ! Sea ice boundary condition 
     106      ! END MV 
    102107 
    103108      IF( lwp ) THEN 
Note: See TracChangeset for help on using the changeset viewer.