Changeset 13197 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/tests/CANAL/MY_SRC/usrdef_sbc.F90
- Timestamp:
- 2020-07-01T16:09:00+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/tests/CANAL/MY_SRC/usrdef_sbc.F90
r12377 r13197 38 38 CONTAINS 39 39 40 SUBROUTINE usrdef_sbc_oce( kt, K mm, Kbb )40 SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 41 41 !!--------------------------------------------------------------------- 42 42 !! *** ROUTINE usr_def_sbc *** … … 53 53 !!---------------------------------------------------------------------- 54 54 INTEGER, INTENT(in) :: kt ! ocean time step 55 INTEGER, INTENT(in) :: Kbb , Kmm! ocean time index55 INTEGER, INTENT(in) :: Kbb ! ocean time index 56 56 INTEGER :: ji, jj ! dummy loop indices 57 57 REAL(wp) :: zrhoair = 1.22 ! approximate air density [Kg/m3] … … 86 86 87 87 WHERE( ABS(gphit) <= rn_windszy/2. ) 88 zwndrel(:,:) = rn_u10 - rn_uofac * uu(:,:,1,K mm)88 zwndrel(:,:) = rn_u10 - rn_uofac * uu(:,:,1,Kbb) 89 89 ELSEWHERE 90 zwndrel(:,:) = - rn_uofac * uu(:,:,1,K mm)90 zwndrel(:,:) = - rn_uofac * uu(:,:,1,Kbb) 91 91 END WHERE 92 92 utau(:,:) = zrhocd * zwndrel(:,:) * zwndrel(:,:) 93 93 94 zwndrel(:,:) = - rn_uofac * vv(:,:,1,K mm)94 zwndrel(:,:) = - rn_uofac * vv(:,:,1,Kbb) 95 95 vtau(:,:) = zrhocd * zwndrel(:,:) * zwndrel(:,:) 96 96
Note: See TracChangeset
for help on using the changeset viewer.