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/CFC/trcsms_cfc.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/CFC/trcsms_cfc.F90

    r10425 r10966  
    5454CONTAINS 
    5555 
    56    SUBROUTINE trc_sms_cfc( kt ) 
     56   SUBROUTINE trc_sms_cfc( kt, Kmm ) 
    5757      !!---------------------------------------------------------------------- 
    5858      !!                     ***  ROUTINE trc_sms_cfc  *** 
    … …  
    7171      !!---------------------------------------------------------------------- 
    7272      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
     73      INTEGER, INTENT(in) ::   Kmm   ! ocean time level 
    7374      ! 
    7475      INTEGER  ::   ji, jj, jn, jl, jm 
    … …  
    191192      IF( l_trdtrc ) THEN 
    192193          DO jn = jp_cfc0, jp_cfc1 
    193             CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt )   ! save trends 
     194            CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt, Kmm )   ! save trends 
    194195          END DO 
    195196      END IF 
Note: See TracChangeset for help on using the changeset viewer.