Changeset 11303 for NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/ICE/icecor.F90

Timestamp:

2019-07-18T17:12:52+02:00 (5 years ago)

Author:

dancopsey

Message:

update to be relative to 11081 of NEMO_4.0_mirror

File:

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

NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/ICE/icecor.F90

@@ -66 +66 @@
          WRITE(numout,*) '~~~~~~~'
       ENDIF
-      !
       !                             !-----------------------------------------------------
-      !                             !  ice thickness must exceed himin (for ice diff)    !
+      !                             !  ice thickness must exceed himin (for temp. diff.) !
       !                             !-----------------------------------------------------
       WHERE( a_i(:,:,:) >= epsi20 )   ;   h_i(:,:,:) = v_i(:,:,:) / a_i(:,:,:)
@@ -97 +96 @@
          END DO
       ENDIF
-
       !                             !-----------------------------------------------------
       !                             !  Rebin categories with thickness out of bounds     !