Changeset 1976 for branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/DYN
- Timestamp:
- 2010-06-29T17:41:10+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r1970 r1976 47 47 USE iom 48 48 USE restart ! only for lrst_oce 49 USE lib_fortran 49 50 50 51 IMPLICIT NONE … … 186 187 187 188 #if defined key_obc 188 IF( lk_obc ) CALL obc_dyn( kt )! Update velocities on each open boundary with the radiation algorithm189 IF( lk_obc ) CALL obc_vol( kt )! Correction of the barotropic componant velocity to control the volume of the system189 CALL obc_dyn( kt ) ! Update velocities on each open boundary with the radiation algorithm 190 CALL obc_vol( kt ) ! Correction of the barotropic componant velocity to control the volume of the system 190 191 #endif 191 192 #if defined key_bdy … … 281 282 ! ------------------ 282 283 rnorme =0.e0 283 rnorme = SUM( gcb(1:jpi,1:jpj) * gcdmat(1:jpi,1:jpj) * gcb(1:jpi,1:jpj) * bmask(:,:) ) 284 IF( lk_mpp ) CALL mpp_sum( rnorme ) ! sum over the global domain 284 rnorme = GLOB_SUM( gcb(1:jpi,1:jpj) * gcdmat(1:jpi,1:jpj) * gcb(1:jpi,1:jpj) * bmask(:,:) ) 285 285 286 286 epsr = eps * eps * rnorme … … 315 315 #if defined key_obc 316 316 ! caution : grad D = 0 along open boundaries 317 IF( Agrif_Root() ) THEN 318 spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 319 spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 320 ELSE 321 spgu(ji,jj) = z2dt * ztdgu 322 spgv(ji,jj) = z2dt * ztdgv 323 ENDIF 317 spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 318 spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 324 319 #elif defined key_bdy 325 320 ! caution : grad D = 0 along open boundaries
Note: See TracChangeset
for help on using the changeset viewer.