Changeset 4719
- Timestamp:
- 2014-07-15T18:48:35+02:00 (10 years ago)
- 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 37 37 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) :: tra !: traceur concentration for next time step 38 38 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 39 43 40 44 !! interpolated gradient … … 186 190 & cvol(jpi,jpj,jpk) , rdttrc(jpk) , trai(jptra) , & 187 191 & 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 190 196 IF( trc_alloc /= 0 ) CALL ctl_warn('trc_alloc: failed to allocate arrays') 191 197 ! -
branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r4607 r4719 31 31 USE lib_mpp ! distribued memory computing library 32 32 USE sbc_oce 33 33 USE trcice ! MV prescribed bio tracers 34 34 35 IMPLICIT NONE 35 36 PRIVATE … … 100 101 IF( lk_c14b ) CALL trc_ini_c14b ! C14 bomb tracer 101 102 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 102 107 103 108 IF( lwp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.