Changeset 9759
- Timestamp:
- 2018-06-07T11:20:58+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_interp.F90
r9748 r9759 712 712 # endif 713 713 ! 714 tsa(i1:i2,j1:j2,1:jpk,1:jpts) = ptab_child(i1:i2,j1:j2,1:jpk,1:jpts) 714 DO jn=1, jpts 715 tsa(i1:i2,j1:j2,1:jpk,jn)=ptab_child(i1:i2,j1:j2,1:jpk,jn)*tmask(i1:i2,j1:j2,1:jpk) 716 END DO 715 717 716 718 IF ( .NOT.lk_agrif_clp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.