Changeset 10975 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/MY_TRC/trcsms_my_trc.F90
- Timestamp:
- 2019-05-13T18:34:33+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/MY_TRC/trcsms_my_trc.F90
r10966 r10975 32 32 CONTAINS 33 33 34 SUBROUTINE trc_sms_my_trc( kt, K mm, Krhs )34 SUBROUTINE trc_sms_my_trc( kt, Kbb, Kmm, Krhs ) 35 35 !!---------------------------------------------------------------------- 36 36 !! *** trc_sms_my_trc *** … … 42 42 ! 43 43 INTEGER, INTENT(in) :: kt ! ocean time-step index 44 INTEGER, INTENT(in) :: K mm, Krhs ! time level indices44 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 45 45 INTEGER :: jn ! dummy loop index 46 46 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrmyt … … 62 62 IF( l_trdtrc ) THEN 63 63 DO jn = jp_myt0, jp_myt1 64 ztrmyt(:,:,:) = tr a(:,:,:,jn)64 ztrmyt(:,:,:) = tr(:,:,:,jn,Krhs) 65 65 CALL trd_trc( ztrmyt, jn, jptra_sms, kt, Kmm ) ! save trends 66 66 END DO
Note: See TracChangeset
for help on using the changeset viewer.