Skip to content

Commit

Permalink
comment the restoring of tracers until we have phyiscal values...
Browse files Browse the repository at this point in the history
...them. At the moment it is all zeros and that seems to be causing
problems for dEdd.
  • Loading branch information
dupontf authored and phil-blain committed Jan 26, 2024
1 parent 10a4c9f commit 24661aa
Showing 1 changed file with 5 additions and 4 deletions.
9 changes: 5 additions & 4 deletions cicecore/cicedyn/infrastructure/ice_restoring.F90
Original file line number Diff line number Diff line change
Expand Up @@ -823,10 +823,11 @@ subroutine ice_MaskRestore
+ (vicen_rest(i,j,n,iblk)-vicen(i,j,n,iblk))*ctime * iceRestMask(i,j,iblk)
vsnon(i,j,n,iblk) = vsnon(i,j,n,iblk) &
+ (vsnon_rest(i,j,n,iblk)-vsnon(i,j,n,iblk))*ctime * iceRestMask(i,j,iblk)
do nt = 1, ntrcr
trcrn(i,j,nt,n,iblk) = trcrn(i,j,nt,n,iblk) &
+ (trcrn_rest(i,j,nt,n,iblk)-trcrn(i,j,nt,n,iblk))*ctime * iceRestMask(i,j,iblk)
enddo
! the following lines are kept commented until a physical value for tracers are given for the interior restoring fields
! do nt = 1, ntrcr
! trcrn(i,j,nt,n,iblk) = trcrn(i,j,nt,n,iblk) &
! + (trcrn_rest(i,j,nt,n,iblk)-trcrn(i,j,nt,n,iblk))*ctime * iceRestMask(i,j,iblk)
! enddo
enddo
enddo
enddo
Expand Down

0 comments on commit 24661aa

Please sign in to comment.