Changeset 13295 for NEMO/trunk/src/OCE/DOM/domqco.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domqco.F90
r13286 r13295 149 149 ! 150 150 IF( ln_dynadv_vec ) THEN !- Vector Form (thickness weighted averaging) 151 DO_2D _00_00151 DO_2D( 0, 0, 0, 0 ) 152 152 pr3u(ji,jj) = 0.5_wp * ( e1e2t(ji ,jj) * pssh(ji ,jj) & 153 153 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) … … 156 156 END_2D 157 157 ELSE !- Flux Form (simple averaging) 158 DO_2D _00_00158 DO_2D( 0, 0, 0, 0 ) 159 159 pr3u(ji,jj) = 0.5_wp * ( pssh(ji ,jj) + pssh(ji+1,jj) ) * r1_hu_0(ji,jj) 160 160 pr3v(ji,jj) = 0.5_wp * ( pssh(ji,jj ) + pssh(ji,jj+1) ) * r1_hv_0(ji,jj) … … 169 169 ! 170 170 IF( ln_dynadv_vec ) THEN !- Vector Form (thickness weighted averaging) 171 DO_2D _10_10! start from 1 since lbc_lnk('F') doesn't update the 1st row/line171 DO_2D( 1, 0, 1, 0 ) ! start from 1 since lbc_lnk('F') doesn't update the 1st row/line 172 172 pr3f(ji,jj) = 0.25_wp * ( e1e2t(ji ,jj ) * pssh(ji ,jj ) & 173 173 & + e1e2t(ji+1,jj ) * pssh(ji+1,jj ) & … … 176 176 END_2D 177 177 ELSE !- Flux Form (simple averaging) 178 DO_2D _10_10! start from 1 since lbc_lnk('F') doesn't update the 1st row/line178 DO_2D( 1, 0, 1, 0 ) ! start from 1 since lbc_lnk('F') doesn't update the 1st row/line 179 179 pr3f(ji,jj) = 0.25_wp * ( pssh(ji ,jj ) + pssh(ji+1,jj ) & 180 180 & + pssh(ji ,jj+1) + pssh(ji+1,jj+1) ) * r1_hf_0(ji,jj) … … 264 264 ssh(:,:,Kbb) = -ssh_ref 265 265 ! 266 DO_2D _11_11266 DO_2D( 1, 1, 1, 1 ) 267 267 IF( ht_0(ji,jj)-ssh_ref < rn_wdmin1 ) THEN ! if total depth is less than min depth 268 268 ssh(ji,jj,Kbb) = rn_wdmin1 - (ht_0(ji,jj) )
Note: See TracChangeset
for help on using the changeset viewer.