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 11758 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src – NEMO

Ignore:
Timestamp:
2019-10-21T18:19:16+02:00 (5 years ago)
Author:
acc
Message:

Branch 2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps. Removal of unnecessary cyclic dependancy between oce_trc and step and update to previously untested BENCH MY_SRC files

Location:
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/nemogcm.F90

    r11480 r11758  
    473473#if defined key_top 
    474474      !                                      ! Passive tracers 
    475                            CALL     trc_init 
     475                           CALL     trc_init( Nbb, Nnn, Naa ) 
    476476#endif 
    477477      IF( l_ldfslp     )   CALL ldf_slp_init    ! slope of lateral mixing 

  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/oce_trc.F90

    r11527 r11758  
    4343   USE oce , ONLY :   ssh    =>    ssh    !: sea surface height at t-point [m]    
    4444   USE oce , ONLY :   rab_n  =>    rab_n  !: local thermal/haline expension ratio at T-points 
    45  
    46    USE step, ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices 
    4745 
    4846   !* surface fluxes * 

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

    r11527 r11758  
    3939CONTAINS 
    4040    
    41    SUBROUTINE trc_init 
     41   SUBROUTINE trc_init( Kbb, Kmm, Kaa ) 
    4242      !!--------------------------------------------------------------------- 
    4343      !!                     ***  ROUTINE trc_init  *** 
    … …  
    5151      !!                or read data or analytical formulation 
    5252      !!--------------------------------------------------------------------- 
     53      INTEGER, INTENT(in) :: Kbb, Kmm, Kaa   ! time level indices 
    5354      ! 
    5455      IF( ln_timing )   CALL timing_start('trc_init') 
    … …  
    6970      IF(lwp) WRITE(numout,*) 
    7071      ! 
    71       CALL trc_ini_sms( Nnn )   ! SMS 
     72      CALL trc_ini_sms( Kmm )   ! SMS 
    7273      CALL trc_ini_trp          ! passive tracers transport 
    7374      CALL trc_ice_ini          ! Tracers in sea ice 
    … …  
    7778      ENDIF 
    7879      ! 
    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 
     80      CALL trc_ini_state( Kbb, Kmm, Kaa )  !  passive tracers initialisation : from a restart or from clim 
     81      ! 
     82      CALL trc_ini_inv( Kmm )              ! Inventories 
    8283      ! 
    8384      IF( ln_timing )   CALL timing_stop('trc_init') 

  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcwri.F90

    r10975 r11758  
    7171   PUBLIC trc_wri 
    7272CONTAINS 
    73    SUBROUTINE trc_wri( kt )                     ! Empty routine    
     73   SUBROUTINE trc_wri( kt, Kmm )                     ! Empty routine    
    7474   INTEGER, INTENT(in) :: kt 
     75   INTEGER, INTENT(in) :: Kmm  ! time level indices 
    7576   END SUBROUTINE trc_wri 
    7677#endif 
Note: See TracChangeset for help on using the changeset viewer.