Changeset 11081 for NEMO/branches/UKMO/NEMO_4.0_mirror/src/ICE/icedyn_rhg.F90

Timestamp:

2019-06-06T16:11:54+02:00 (5 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0_mirror : update to be a copy of rev 11079 of release-4.0.

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror/src/ICE/icedyn_rhg.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror/src/ICE/icedyn_rhg.F90

@@ -58 +58 @@
       !!--------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt     ! ice time step
+      !
+      INTEGER  ::   jl   ! dummy loop indices
       !!--------------------------------------------------------------------
       ! controls
@@ -68 +70 @@
          WRITE(numout,*)'~~~~~~~~~~~'
       ENDIF
-
-      ! --------
-      ! Rheology
-      ! --------   
+      !
+      IF( ln_landfast_home ) THEN      !-- Landfast ice parameterization
+         tau_icebfr(:,:) = 0._wp
+         DO jl = 1, jpl
+            WHERE( h_i(:,:,jl) > ht_n(:,:) * rn_depfra )   tau_icebfr(:,:) = tau_icebfr(:,:) + a_i(:,:,jl) * rn_icebfr
+         END DO
+      ENDIF
+      !
+      !--------------!
+      !== Rheology ==!
+      !--------------!   
       SELECT CASE( nice_rhg )
       !                                !------------------------!