Changeset 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/traqsr.F90
- Timestamp:
- 2019-05-08T10:56:14+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/OCE/TRA/traqsr.F90
r10874 r10946 75 75 CONTAINS 76 76 77 SUBROUTINE tra_qsr( kt )77 SUBROUTINE tra_qsr( kt, Kmm, Krhs ) 78 78 !!---------------------------------------------------------------------- 79 79 !! *** ROUTINE tra_qsr *** … … 102 102 !!---------------------------------------------------------------------- 103 103 INTEGER, INTENT(in) :: kt ! ocean time-step 104 INTEGER, INTENT(in) :: Kmm, Krhs ! time level indices 104 105 ! 105 106 INTEGER :: ji, jj, jk ! dummy loop indices … … 296 297 IF( l_trdtra ) THEN ! qsr tracers trends saved for diagnostics 297 298 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 298 CALL trd_tra( kt, 'TRA', jp_tem, jptra_qsr, ztrdt )299 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_qsr, ztrdt ) 299 300 DEALLOCATE( ztrdt ) 300 301 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.