Ticket #1835: trc_oce.patch
File trc_oce.patch, 854 bytes (added by mdunphy, 7 years ago) |
---|
-
trc_oce.
old new 22 22 PUBLIC trc_oce_ext_lev ! function called by traqsr.F90 at least 23 23 PUBLIC trc_oce_alloc ! function called by nemogcm.F90 24 24 25 INTEGER , PUBLIC :: nn_dttrc 25 INTEGER , PUBLIC :: nn_dttrc = 1 !: frequency of step on passive tracers 26 26 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 27 27 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient 28 28 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: facvol !: volume for degraded regions