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 10880 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90 – NEMO

Ignore:
Timestamp:
2019-04-17T12:02:14+02:00 (5 years ago)
Author:
davestorkey
Message:

branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps:

  1. Move time indices from dom_oce.F90 to step.F90.
  2. Implement time dimension for passive tracers with independent set of time indices in trcstp.F90.
  3. Update all the traadv and trcadv modules.
File:
1 edited

Legend:

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

    r10570 r10880  
    2626   USE trcice          ! tracers in sea ice 
    2727   USE trcbc,   only : trc_bc_ini ! generalized Boundary Conditions 
     28   USE trcstp          ! for time level indices (to be initialised) 
    2829  
    2930   IMPLICIT NONE 
     
    6162      CALL trc_nam       ! read passive tracers namelists 
    6263      CALL top_alloc()   ! allocate TOP arrays 
     64 
     65      ! Initialise time level indices 
     66      Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 
     67 
     68      ! Initialisation of temporary pointers (to be deleted after development finished) 
     69      CALL update_pointers_trc() 
    6370      ! 
    6471      IF(.NOT.ln_trcdta )   ln_trc_ini(:) = .FALSE. 
Note: See TracChangeset for help on using the changeset viewer.