Changeset 10922 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/traldf_triad.F90
- Timestamp:
- 2019-05-02T17:10:39+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_triad.F90
r10874 r10922 50 50 SUBROUTINE tra_ldf_triad( kt, kit000, cdtype, pahu, pahv, pgu , pgv , & 51 51 & pgui, pgvi, & 52 & ptb , ptbb, pta , kjpt, kpass )52 & ptb , ptbb, pta , kjpt, kpass, Kmm ) 53 53 !!---------------------------------------------------------------------- 54 54 !! *** ROUTINE tra_ldf_triad *** … … 75 75 INTEGER , INTENT(in ) :: kjpt ! number of tracers 76 76 INTEGER , INTENT(in ) :: kpass ! =1/2 first or second passage 77 INTEGER , INTENT(in) :: Kmm ! ocean time level indices 77 78 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: pahu, pahv ! eddy diffusivity at u- and v-points [m2/s] 78 79 REAL(wp), DIMENSION(jpi,jpj ,kjpt), INTENT(in ) :: pgu , pgv ! tracer gradient at pstep levels … … 213 214 ENDIF 214 215 ! 215 IF( ln_ldfeiv_dia .AND. cdtype == 'TRA' ) CALL ldf_eiv_dia( zpsi_uw, zpsi_vw )216 IF( ln_ldfeiv_dia .AND. cdtype == 'TRA' ) CALL ldf_eiv_dia( zpsi_uw, zpsi_vw, Kmm ) 216 217 ! 217 218 ENDIF !== end 1st pass only ==!
Note: See TracChangeset
for help on using the changeset viewer.