Changeset 13295 for NEMO/trunk/src/OCE/ZDF/zdfdrg.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfdrg.F90
r13286 r13295 116 116 ! 117 117 IF( l_log_not_linssh ) THEN !== "log layer" ==! compute Cd and -Cd*|U| 118 DO_2D _00_00118 DO_2D( 0, 0, 0, 0 ) 119 119 imk = k_mk(ji,jj) ! ocean bottom level at t-points 120 120 zut = uu(ji,jj,imk,Kmm) + uu(ji-1,jj,imk,Kmm) ! 2 x velocity at t-point … … 128 128 END_2D 129 129 ELSE !== standard Cd ==! 130 DO_2D _00_00130 DO_2D( 0, 0, 0, 0 ) 131 131 imk = k_mk(ji,jj) ! ocean bottom level at t-points 132 132 zut = uu(ji,jj,imk,Kmm) + uu(ji-1,jj,imk,Kmm) ! 2 x velocity at t-point … … 175 175 ENDIF 176 176 177 DO_2D _00_00177 DO_2D( 0, 0, 0, 0 ) 178 178 ikbu = mbku(ji,jj) ! deepest wet ocean u- & v-levels 179 179 ikbv = mbkv(ji,jj) … … 188 188 ! 189 189 IF( ln_isfcav ) THEN ! ocean cavities 190 DO_2D _00_00190 DO_2D( 0, 0, 0, 0 ) 191 191 ikbu = miku(ji,jj) ! first wet ocean u- & v-levels 192 192 ikbv = mikv(ji,jj) … … 422 422 l_log_not_linssh = .FALSE. !- don't update Cd at each time step 423 423 ! 424 DO_2D _11_11424 DO_2D( 1, 1, 1, 1 ) 425 425 zzz = 0.5_wp * e3t_0(ji,jj,k_mk(ji,jj)) 426 426 zcd = ( vkarmn / LOG( zzz / rn_z0 ) )**2
Note: See TracChangeset
for help on using the changeset viewer.