Ignore:
Timestamp:
2019-09-10T17:46:18+02:00 (18 months ago)
Author:
acc
Message:

Branch 2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps. Removal of TOP-specific time indices (Nnn_trc etc.). This completes the removal of the trc sub-timestepping option and dynamics, active tracers and passive tracers must now have common time-steps. Note time-filtering for passive tracers is done in trc_trp (trc_atf) but the (now shared) time indices are not swapped until after calls to tra_atf, dyn_atf and ssh_atf in step. Calls to trc routines after trc_atf have had their time-index arguments adjusted accordingly. These changes have been fully SETTE-tested.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90

    r11504 r11527  
    5858      IF(lwp) WRITE(numout,*) '~~~~~~~~' 
    5959      ! 
    60       ! Initialise time level indices 
    61       Nbb_trc = 1; Nnn_trc = 2; Naa_trc = 3; Nrhs_trc = Naa_trc 
    62       ! 
    6360      CALL trc_ini_ctl   ! control  
    6461      CALL trc_nam       ! read passive tracers namelists 
     
    7269      IF(lwp) WRITE(numout,*) 
    7370      ! 
    74       CALL trc_ini_sms( Nnn_trc )   ! SMS 
     71      CALL trc_ini_sms( Nnn )   ! SMS 
    7572      CALL trc_ini_trp          ! passive tracers transport 
    7673      CALL trc_ice_ini          ! Tracers in sea ice 
     
    8077      ENDIF 
    8178      ! 
    82       CALL trc_ini_state( Nbb_trc, Nnn_trc, Naa_trc )  !  passive tracers initialisation : from a restart or from clim 
    83       ! 
    84       CALL trc_ini_inv( Nnn_trc )    ! Inventories 
     79      CALL trc_ini_state( Nbb, Nnn, Naa )  !  passive tracers initialisation : from a restart or from clim 
     80      ! 
     81      CALL trc_ini_inv( Nnn )              ! Inventories 
    8582      ! 
    8683      IF( ln_timing )   CALL timing_stop('trc_init') 
Note: See TracChangeset for help on using the changeset viewer.