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

Ignore:
Timestamp:
2019-05-10T18:43:09+02:00 (5 years ago)
Author:
acc
Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Convert TOP routines in TOP/TRP directory and all knock on effects of these conversions. SETTE tested (GYRE_PISCES only)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r10069 r10966  
    3333CONTAINS 
    3434 
    35    SUBROUTINE trc_sms_c14( kt ) 
     35   SUBROUTINE trc_sms_c14( kt, Kmm ) 
    3636      !!---------------------------------------------------------------------- 
    3737      !!                  ***  ROUTINE trc_sms_c14  *** 
    … …  
    5151      ! 
    5252      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
     53      INTEGER, INTENT(in) ::   Kmm   ! ocean time level 
    5354      ! 
    5455      INTEGER  :: ji, jj, jk         ! dummy loop indices  
    … …  
    157158      ENDIF 
    158159 
    159       IF( l_trdtrc )  CALL trd_trc( tra(:,:,:,jp_c14), 1, jptra_sms, kt )   ! save trends 
     160      IF( l_trdtrc )  CALL trd_trc( tra(:,:,:,jp_c14), 1, jptra_sms, kt, Kmm )   ! save trends 
    160161      ! 
    161162      IF( ln_timing )   CALL timing_stop('trc_sms_c14') 
Note: See TracChangeset for help on using the changeset viewer.