Changeset 11495 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavgam.F90

Timestamp:

2019-09-03T17:45:00+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fix issue in the computation of utbl and vtbl + cosmetic change (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavgam.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavgam.F90

@@ -59 +59 @@
          ! nothing to do
       CASE ('ad15', 'hj99')
-         CALL isf_tbl(un(:,:,:) ,zutbl(:,:),'U')
-         CALL isf_tbl(vn(:,:,:) ,zvtbl(:,:),'V')
+         ! compute velocity in tbl
+         CALL isf_tbl(un(:,:,:) ,zutbl(:,:),'U', miku, rhisf_tbl_cav)
+         CALL isf_tbl(vn(:,:,:) ,zvtbl(:,:),'V', mikv, rhisf_tbl_cav)
+         !
+         ! mask velocity in tbl with ice shelf mask
+         !zutbl(:,:) = zutbl(:,:) * mskisf_cav(:,:)
+         !zvtbl(:,:) = zvtbl(:,:) * mskisf_cav(:,:)
+         !
+         ! output
          CALL iom_put('utbl',zutbl(:,:))
          CALL iom_put('vtbl',zvtbl(:,:))