Changeset 10966 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/AGE/trcsms_age.F90
- Timestamp:
- 2019-05-10T18:43:09+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/AGE/trcsms_age.F90
r10070 r10966 37 37 CONTAINS 38 38 39 SUBROUTINE trc_sms_age( kt )39 SUBROUTINE trc_sms_age( kt, Kmm ) 40 40 !!---------------------------------------------------------------------- 41 41 !! *** trc_sms_age *** … … 46 46 !!---------------------------------------------------------------------- 47 47 INTEGER, INTENT(in) :: kt ! ocean time-step index 48 INTEGER, INTENT(in) :: Kmm ! ocean time level 48 49 INTEGER :: jn, jk ! dummy loop index 49 50 !!---------------------------------------------------------------------- … … 67 68 END DO 68 69 ! 69 IF( l_trdtrc ) CALL trd_trc( tra(:,:,:,jp_age), jn, jptra_sms, kt ) ! save trends70 IF( l_trdtrc ) CALL trd_trc( tra(:,:,:,jp_age), jn, jptra_sms, kt, Kmm ) ! save trends 70 71 ! 71 72 IF( ln_timing ) CALL timing_stop('trc_sms_age')
Note: See TracChangeset
for help on using the changeset viewer.