Changeset 12726 for NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceistate.F90

Timestamp:

2020-04-09T16:30:48+02:00 (4 years ago)

Author:

clem

Message:

clean useless variables

File:

• NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceistate.F90 (modified) (2 diffs)

NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceistate.F90

@@ -157 +157 @@
       v_ip     (:,:,:) = 0._wp
       v_il     (:,:,:) = 0._wp
-      a_ip_frac(:,:,:) = 0._wp
       a_ip_eff (:,:,:) = 0._wp
       h_ip     (:,:,:) = 0._wp
@@ -377 +376 @@
 
          ! Melt ponds
-         WHERE( a_i > epsi10 )   ;   a_ip_frac(:,:,:) = a_ip(:,:,:) / a_i(:,:,:)
-         ELSEWHERE               ;   a_ip_frac(:,:,:) = 0._wp
+         WHERE( a_i > epsi10 )   ;   a_ip_eff(:,:,:) = a_ip(:,:,:) / a_i(:,:,:)
+         ELSEWHERE               ;   a_ip_eff(:,:,:) = 0._wp
          END WHERE
-         a_ip_eff(:,:,:) = a_ip_frac(:,:,:)
          v_ip(:,:,:) = h_ip(:,:,:) * a_ip(:,:,:)
          v_il(:,:,:) = h_il(:,:,:) * a_ip(:,:,:)