Changeset 11083 for NEMO/branches/UKMO/NEMO_4.0_GO6_mixing/src/ICE/icecor.F90

Timestamp:

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

Author:

davestorkey

Message:

UKMO/NEMO_4.0_GO6_mixing : Update to be relative to rev 11081 of NEMO_4.0_mirror.

File:

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

NEMO/branches/UKMO/NEMO_4.0_GO6_mixing/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     !