New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15242 for NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90 – NEMO

Ignore:
Timestamp:
2021-09-10T11:22:28+02:00 (3 years ago)
Author:
dcarneir
Message:

Leaving only the essential bits in the code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90

    r15241 r15242  
    933933            END WHERE 
    934934 
    935             WRITE(numout,*) "zhi_damin = ",zhi_damin 
    936935            ! add positive concentration increments with zhi_damin to regions where ice 
    937936            ! is already present and bound them to 1 
     
    10041003               rn_hinew = rn_hinew_save 
    10051004 
    1006                ! compute thickness now 
    1007                WHERE( a_i(:,:,:) > epsi10 ) 
    1008                   z1_a_i(:,:,:) = 1.0_wp/a_i(:,:,:) 
    1009                ELSEWHERE 
    1010                   z1_a_i(:,:,:) = 0.0_wp 
    1011                END WHERE 
    1012                h_i(:,:,:) = v_i(:,:,:) * z1_a_i(:,:,:) 
    1013  
    10141005               incr_newice(:,:,:) = .FALSE. 
    10151006               initial_step = .FALSE. 
    10161007            END IF 
    1017  
    1018             ! make volume consistent with concentration and thickness 
    1019             ! note where conc is zero this will lead to zero volume  
    1020             ! and soon zero thickness after the call to ice_var_zapsmall 
    1021             v_i  (:,:,:) = h_i  (:,:,:) * a_i  (:,:,:) 
    10221008 
    10231009            ! as ice concentration has changed, maintain equivalent values for prognostic variables 
Note: See TracChangeset for help on using the changeset viewer.