Changeset 15242 for NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90

Timestamp:

2021-09-10T11:22:28+02:00 (21 months ago)

Author:

dcarneir

Message:

Leaving only the essential bits in the code

File:

• NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90

@@ -933 +933 @@
             END WHERE
 
-            WRITE(numout,*) "zhi_damin = ",zhi_damin
             ! add positive concentration increments with zhi_damin to regions where ice
             ! is already present and bound them to 1
@@ -1004 +1003 @@
                rn_hinew = rn_hinew_save
 
-               ! compute thickness now
-               WHERE( a_i(:,:,:) > epsi10 )
-                  z1_a_i(:,:,:) = 1.0_wp/a_i(:,:,:)
-               ELSEWHERE
-                  z1_a_i(:,:,:) = 0.0_wp
-               END WHERE
-               h_i(:,:,:) = v_i(:,:,:) * z1_a_i(:,:,:)
-
                incr_newice(:,:,:) = .FALSE.
                initial_step = .FALSE.
             END IF
-
-            ! make volume consistent with concentration and thickness
-            ! note where conc is zero this will lead to zero volume 
-            ! and soon zero thickness after the call to ice_var_zapsmall
-            v_i  (:,:,:) = h_i  (:,:,:) * a_i  (:,:,:)
 
             ! as ice concentration has changed, maintain equivalent values for prognostic variables