Changeset 13681 for NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/iceistate.F90

Timestamp:

2020-10-27T13:54:43+01:00 (3 years ago)

Author:

vancop

Message:

Post-gurvanian subroutine volume 2 including several bugfixes for Clement check

File:

• NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/iceistate.F90 (modified) (1 diff)

NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/iceistate.F90

@@ -165 +165 @@
       u_ice (:,:) = 0._wp
       v_ice (:,:) = 0._wp
+
+      CALL lbc_lnk_multi( 'ice_istate' , u_ice, 'U', -1., v_ice, 'V', -1. )
       !
       !------------------------------------------------------------------------