diff --git a/src/TOP/AGE/trcsms_age.F90 b/src/TOP/AGE/trcsms_age.F90 index f3352a5c41c2cac32bddf15065c31e071cdb196b..cbf3b61a41428132fb2a994fbe66db6ba2defc23 100644 --- a/src/TOP/AGE/trcsms_age.F90 +++ b/src/TOP/AGE/trcsms_age.F90 @@ -74,7 +74,7 @@ CONTAINS tr(:,:,jk,jp_age,Krhs) = tmask(:,:,jk) * rryear END DO ! - IF( l_trdtrc ) CALL trd_trc( tr(:,:,:,jp_age,Krhs), jn, jptra_sms, kt, Kmm ) ! save trends + IF( l_trdtrc ) CALL trd_trc( tr(:,:,:,jp_age,Krhs), jp_age, jptra_sms, kt, Kmm ) ! save trends ! IF( ln_timing ) CALL timing_stop('trc_sms_age') !