Changeset 4719 for branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trc.F90

Timestamp:

2014-07-15T18:48:35+02:00 (10 years ago)

Author:

vancop

Message:

[sea ice tracer boundary conditions ORCA2_LIM2 PISCES]

File:

• branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trc.F90 (modified) (2 diffs)

branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trc.F90

@@ -37 +37 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  tra            !: traceur concentration for next time step
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)         ::  trb            !: traceur concentration for before time step
+   ! MV 2013 fake bio sea ice model
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  trc_i          !: prescribed tracer concentration in sea ice for SBC
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)           ::  trc_o          !: prescribed tracer concentration in ocean for SBC
+   ! END MV 2013 
 
    !! interpolated gradient
@@ -186 +190 @@
          &      cvol(jpi,jpj,jpk)     , rdttrc(jpk)           , trai(jptra)           ,       &
          &      ctrcnm(jptra)         , ctrcln(jptra)         , ctrcun(jptra)         ,       & 
-         &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)                             ,  STAT = trc_alloc  )  
-
+         &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)                             ,       &
+   ! MV 2013 fake bio sea ice model
+         &      trc_i(jpi,jpj,jptra)  , trc_o(jpi,jpj,jptra)  , STAT = trc_alloc  )  
+   ! END MV 2013 fake bio sea ice model
       IF( trc_alloc /= 0 )   CALL ctl_warn('trc_alloc: failed to allocate arrays')
       !