New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trc_oce.patch on Ticket #1835 – Attachment – NEMO

Ticket #1835: trc_oce.patch

File trc_oce.patch, 854 bytes (added by mdunphy, 7 years ago)

  • trc_oce.

    old new  
    2222   PUBLIC   trc_oce_ext_lev    ! function called by traqsr.F90 at least 
    2323   PUBLIC   trc_oce_alloc      ! function called by nemogcm.F90 
    2424 
    25    INTEGER , PUBLIC                                      ::   nn_dttrc      !: frequency of step on passive tracers 
     25   INTEGER , PUBLIC                                      ::   nn_dttrc = 1  !: frequency of step on passive tracers 
    2626   REAL(wp), PUBLIC                                      ::   r_si2         !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    2727   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3         !: light absortion coefficient 
    2828   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   facvol        !: volume for degraded regions