- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/DOM/domqco.F90
r13237 r13899 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) … … 217 217 ! 218 218 IF( MIN( id1, id2 ) > 0 ) THEN ! all required arrays exist 219 CALL iom_get( numror, jpdom_auto glo, 'sshb' , ssh(:,:,Kbb), ldxios = lrxios )220 CALL iom_get( numror, jpdom_auto glo, 'sshn' , ssh(:,:,Kmm), ldxios = lrxios )219 CALL iom_get( numror, jpdom_auto, 'sshb' , ssh(:,:,Kbb), ldxios = lrxios ) 220 CALL iom_get( numror, jpdom_auto, 'sshn' , ssh(:,:,Kmm), ldxios = lrxios ) 221 221 ! needed to restart if land processor not computed 222 222 IF(lwp) write(numout,*) 'qe_rst_read : ssh(:,:,Kbb) and ssh(:,:,Kmm) found in restart files' … … 232 232 IF(lwp) write(numout,*) 'sshn set equal to sshb.' 233 233 IF(lwp) write(numout,*) 'neuler is forced to 0' 234 CALL iom_get( numror, jpdom_auto glo, 'sshb', ssh(:,:,Kbb), ldxios = lrxios )234 CALL iom_get( numror, jpdom_auto, 'sshb', ssh(:,:,Kbb), ldxios = lrxios ) 235 235 ssh(:,:,Kmm) = ssh(:,:,Kbb) 236 236 l_1st_euler = .TRUE. … … 239 239 IF(lwp) write(numout,*) 'sshb set equal to sshn.' 240 240 IF(lwp) write(numout,*) 'neuler is forced to 0' 241 CALL iom_get( numror, jpdom_auto glo, 'sshn', ssh(:,:,Kmm), ldxios = lrxios )241 CALL iom_get( numror, jpdom_auto, 'sshn', ssh(:,:,Kmm), ldxios = lrxios ) 242 242 ssh(:,:,Kbb) = ssh(:,:,Kmm) 243 243 l_1st_euler = .TRUE. … … 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.