Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/NST/agrif_ice_interp.F90

Timestamp:

2020-12-17T15:36:44+01:00 (4 years ago)

Author:

mcastril

Message:

Merging r14117 through r14199 into dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/NST/agrif_ice_interp.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/NST/agrif_ice_interp.F90

@@ -69 +69 @@
       Agrif_UseSpecialValue = .FALSE.
       ! lbc ????
-      ! JC: do we really need the 3 lines below ?
+      !
       CALL ice_var_glo2eqv
-      CALL ice_var_zapsmall
-      CALL ice_var_agg(2)
-
-      ! Melt ponds
-      WHERE( a_i > epsi10 )
-         a_ip_frac(:,:,:) = a_ip(:,:,:) / a_i(:,:,:)
-      ELSEWHERE
-         a_ip_frac(:,:,:) = 0._wp
-      END WHERE
-      WHERE( a_ip > 0._wp )       ! ???????    
-         h_ip(:,:,:) = v_ip(:,:,:) / a_ip(:,:,:)
-      ELSEWHERE
-         h_ip(:,:,:) = 0._wp
-      END WHERE   
-
-      tn_ice(:,:,:) = t_su(:,:,:)
-      t1_ice(:,:,:) = t_i (:,:,1,:) 
-
+      !
    END SUBROUTINE agrif_istate_ice