Changeset 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdfosm.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/ZDF/zdfosm.F90
r10883 r10946 122 122 123 123 124 SUBROUTINE zdf_osm( kt, Kbb, Kmm, p_avm, p_avt )124 SUBROUTINE zdf_osm( kt, Kbb, Kmm, Krhs, p_avm, p_avt ) 125 125 !!---------------------------------------------------------------------- 126 126 !! *** ROUTINE zdf_osm *** … … 158 158 !!---------------------------------------------------------------------- 159 159 INTEGER , INTENT(in ) :: kt ! ocean time step 160 INTEGER , INTENT(in ) :: Kbb, Kmm 160 INTEGER , INTENT(in ) :: Kbb, Kmm, Krhs ! ocean time level indices 161 161 REAL(wp), DIMENSION(:,:,:), INTENT(inout) :: p_avm, p_avt ! momentum and tracer Kz (w-points) 162 162 !! … … 1661 1661 ztrds(:,:,:) = pts(:,:,:,jp_sal,Krhs) - ztrds(:,:,:) 1662 1662 !!bug gm jpttdzdf ==> jpttosm 1663 CALL trd_tra( kt, 'TRA', jp_tem, jptra_zdf, ztrdt )1664 CALL trd_tra( kt, 'TRA', jp_sal, jptra_zdf, ztrds )1663 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_zdf, ztrdt ) 1664 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_sal, jptra_zdf, ztrds ) 1665 1665 DEALLOCATE( ztrdt ) ; DEALLOCATE( ztrds ) 1666 1666 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.