Changeset 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/traldf.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/traldf.F90
r10922 r10946 47 47 CONTAINS 48 48 49 SUBROUTINE tra_ldf( kt, Kmm )49 SUBROUTINE tra_ldf( kt, Kmm, Krhs ) 50 50 !!---------------------------------------------------------------------- 51 51 !! *** ROUTINE tra_ldf *** … … 54 54 !!---------------------------------------------------------------------- 55 55 INTEGER, INTENT( in ) :: kt ! ocean time-step index 56 INTEGER, INTENT( in ) :: Kmm ! ocean time level indices56 INTEGER, INTENT( in ) :: Kmm, Krhs ! ocean time level indices 57 57 !! 58 58 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt, ztrds … … 81 81 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 82 82 ztrds(:,:,:) = tsa(:,:,:,jp_sal) - ztrds(:,:,:) 83 CALL trd_tra( kt, 'TRA', jp_tem, jptra_ldf, ztrdt )84 CALL trd_tra( kt, 'TRA', jp_sal, jptra_ldf, ztrds )83 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_ldf, ztrdt ) 84 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_sal, jptra_ldf, ztrds ) 85 85 DEALLOCATE( ztrdt, ztrds ) 86 86 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.