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.
Changeset 9208 for branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trc.F90 – NEMO

Ignore:
Timestamp:
2018-01-10T17:06:13+01:00 (6 years ago)
Author:
jpalmier
Message:

JPALM -- GMED 364 -- clean/correct branch from GO6 Head

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r9114 r9208  
    3333   !! -------------------------------------------------- 
    3434   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)               ::  trai           !: initial total tracer 
     35# if defined key_medusa && key_roam  
     36   !! AXY (17/11/2017): elemental cycle initial totals 
     37   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)               ::  cycletot       !: initial elemental cycle total 
     38   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)               ::  cycletot2      !: initial elemental cycle total excl. halo in mpp_sum 
     39# endif 
    3540   REAL(wp), PUBLIC                                                ::  areatot        !: total volume  
    3641   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  )         ::  cvol           !: volume correction -degrad option-  
     
    266271         &      cvol(jpi,jpj,jpk)     , rdttrc(jpk)           , trai(jptra)           ,       & 
    267272         &      ctrcnm(jptra)         , ctrcln(jptra)         , ctrcun(jptra)         ,       &  
     273# if defined key_medusa && defined key_roam 
     274         &      cycletot(6), cycletot2(6)                                             ,       & 
     275# endif 
    268276         &      ln_trc_ini(jptra)     , ln_trc_wri(jptra)     , qsr_mean(jpi,jpj)     ,  STAT = trc_alloc  )   
    269277 
Note: See TracChangeset for help on using the changeset viewer.