Changeset 2487 for branches/nemo_v3_3_beta
- Timestamp:
- 2010-12-19T16:07:50+01:00 (14 years ago)
- Location:
- branches/nemo_v3_3_beta/NEMOGCM/NEMO
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90
r2342 r2487 29 29 PRIVATE 30 30 31 PUBLIC Agrif_tra, Agrif_dyn, interpu, interpv31 PUBLIC Agrif_tra, Agrif_dyn, Agrif_ssh, interpu, interpv 32 32 33 33 # include "domzgr_substitute.h90" … … 278 278 END DO 279 279 280 sshn(2,:)=sshn(3,:)281 sshb(2,:)=sshb(3,:)282 283 280 ENDIF 284 281 … … 355 352 END DO 356 353 357 sshn(nlci-1,:)=sshn(nlci-2,:)358 sshb(nlci-1,:)=sshb(nlci-2,:)359 354 ENDIF 360 355 … … 426 421 END DO 427 422 428 sshn(:,2)=sshn(:,3)429 sshb(:,2)=sshb(:,3)430 423 ENDIF 431 424 … … 498 491 END DO 499 492 500 sshn(:,nlcj-1)=sshn(:,nlcj-2)501 sshb(:,nlcj-1)=sshb(:,nlcj-2)502 493 ENDIF 503 494 504 495 END SUBROUTINE Agrif_dyn 496 497 498 SUBROUTINE Agrif_ssh( kt ) 499 !!---------------------------------------------------------------------- 500 !! *** ROUTINE Agrif_DYN *** 501 !!---------------------------------------------------------------------- 502 INTEGER, INTENT(in) :: kt 503 !! 504 !!---------------------------------------------------------------------- 505 506 IF( Agrif_Root() ) RETURN 507 508 509 IF((nbondi == -1).OR.(nbondi == 2)) THEN 510 ssha(2,:)=ssha(3,:) 511 sshn(2,:)=sshn(3,:) 512 ENDIF 513 514 IF((nbondi == 1).OR.(nbondi == 2)) THEN 515 ssha(nlci-1,:)=ssha(nlci-2,:) 516 sshn(nlci-1,:)=sshn(nlci-2,:) 517 ENDIF 518 519 IF((nbondj == -1).OR.(nbondj == 2)) THEN 520 ssha(:,2)=sshn(:,3) 521 sshn(:,2)=sshb(:,3) 522 ENDIF 523 524 IF((nbondj == 1).OR.(nbondj == 2)) THEN 525 ssha(:,nlcj-1)=ssha(:,nlcj-2) 526 ssha(:,nlcj-1)=sshn(:,nlcj-2) 527 ENDIF 528 529 END SUBROUTINE Agrif_ssh 505 530 506 531 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90
r2393 r2487 93 93 !! *** ROUTINE recompute_diags *** 94 94 !!--------------------------------------------- 95 USE divcur96 USE sshwzv97 ! USE cla98 99 95 INTEGER, INTENT(in) :: kt 100 101 ta = hdivb102 sa = rotb103 Call div_cur(kt)104 105 hdivb = ta106 rotb = sa107 108 ! IF( n_cla == 1 ) CALL div_cla( kt )109 ! CALL wzv( kt )110 96 111 97 END SUBROUTINE recompute_diags -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r2287 r2487 39 39 USE prtctl ! Print control 40 40 #if defined key_agrif 41 USE agrif_opa_update42 41 USE agrif_opa_interp 43 42 #endif … … 316 315 ENDIF 317 316 318 #if defined key_agrif319 ! Update velocity at AGRIF zoom boundaries320 IF (.NOT.Agrif_Root()) CALL Agrif_Update_Dyn( kt )321 #endif322 323 317 IF(ln_ctl) CALL prt_ctl( tab3d_1=un, clinfo1=' nxt - Un: ', mask1=umask, & 324 318 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r2392 r2487 31 31 USE iom 32 32 USE sbcrnf, ONLY : h_rnf, nk_rnf ! River runoff 33 #if defined key_agrif 34 USE agrif_opa_update 35 USE agrif_opa_interp 36 #endif 33 37 #if defined key_asminc 34 38 USE asminc ! Assimilation increment … … 165 169 & * tmask(:,:,1) 166 170 171 #if defined key_agrif 172 CALL agrif_ssh(kt) 173 #endif 167 174 #if defined key_obc 168 175 IF( Agrif_Root() ) THEN … … 341 348 ENDIF 342 349 ! 350 ! Update velocity at AGRIF zoom boundaries 351 #id defined key_agrif 352 IF ( .NOT.Agrif_Root() ) CALL Agrif_Update_Dyn( kt ) 353 #endif 354 ! 343 355 IF(ln_ctl) CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb - : ', mask1=tmask, ovlap=1 ) 344 356 !
Note: See TracChangeset
for help on using the changeset viewer.