Changeset 13852 for NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/ICE/icestp.F90

Timestamp:

2020-11-23T16:07:16+01:00 (4 years ago)

Author:

emanuelaclementi

Message:

merge with trunk@13787 - ticket #2155 and #2339

File:

• NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/ICE/icestp.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/ICE/icestp.F90

@@ -212 +212 @@
       ! --- Ocean time step --- !
       !-------------------------!
-      IF( ln_icedyn )                   CALL ice_update_tau( kt, uu(:,:,1,Kbb), vv(:,:,1,Kbb) )   ! -- update surface ocean stresses
+      CALL ice_update_tau( kt, uu(:,:,1,Kbb), vv(:,:,1,Kbb) )         ! -- update surface ocean stresses
 !!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!!
       !