Changeset 15317
 Timestamp:
 20211001T18:09:36+02:00 (3 years ago)
 Location:
 NEMO/trunk/src/NST
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/trunk/src/NST/agrif_oce_sponge.F90
r14976 r15317 688 688 END DO 689 689 690 ubdiff(i1:i2,j1:j2, :) = (uu(i1:i2,j1:j2,:,Kbb_a)  tabres_child(i1:i2,j1:j2,:))*umask(i1:i2,j1:j2,:)690 ubdiff(i1:i2,j1:j2,1:jpk) = (uu(i1:i2,j1:j2,1:jpk,Kbb_a)  tabres_child(i1:i2,j1:j2,1:jpk))*umask(i1:i2,j1:j2,1:jpk) 691 691 ELSE 692 692 693 ubdiff(i1:i2,j1:j2, :) = (uu(i1:i2,j1:j2,:,Kbb_a)  tabres(i1:i2,j1:j2,:,1))*umask(i1:i2,j1:j2,:)693 ubdiff(i1:i2,j1:j2,1:jpk) = (uu(i1:i2,j1:j2,1:jpk,Kbb_a)  tabres(i1:i2,j1:j2,1:jpk,1))*umask(i1:i2,j1:j2,1:jpk) 694 694 695 695 ENDIF … … 872 872 END DO 873 873 874 vbdiff(i1:i2,j1:j2, :) = (vv(i1:i2,j1:j2,:,Kbb_a)  tabres_child(i1:i2,j1:j2,:))*vmask(i1:i2,j1:j2,:)874 vbdiff(i1:i2,j1:j2,1:jpk) = (vv(i1:i2,j1:j2,1:jpk,Kbb_a)  tabres_child(i1:i2,j1:j2,1:jpk))*vmask(i1:i2,j1:j2,1:jpk) 875 875 ELSE 876 876 877 vbdiff(i1:i2,j1:j2, :) = (vv(i1:i2,j1:j2,:,Kbb_a)  tabres(i1:i2,j1:j2,:,1))*vmask(i1:i2,j1:j2,:)877 vbdiff(i1:i2,j1:j2,1:jpk) = (vv(i1:i2,j1:j2,1:jpk,Kbb_a)  tabres(i1:i2,j1:j2,1:jpk,1))*vmask(i1:i2,j1:j2,1:jpk) 878 878 879 879 ENDIF 
NEMO/trunk/src/NST/agrif_oce_update.F90
r15265 r15317 548 548 549 549 ELSE 550 DO jk= 1,jpk550 DO jk=k1,k2 551 551 DO jj=j1,j2 552 552 DO ji=i1,i2 … … 695 695 696 696 ELSE 697 DO jk= 1,jpk697 DO jk=k1,k2 698 698 DO jj=j1,j2 699 699 DO ji=i1,i2
Note: See TracChangeset
for help on using the changeset viewer.