Changeset 5051 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

Timestamp:

2015-02-02T18:31:34+01:00 (9 years ago)

Author:

clem

Message:

LIM3 initialization is now called at the same time as other sbc fields

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90 (modified) (3 diffs)

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

@@ -83 +83 @@
       ! zap small values
       !-----------------
-      CALL lim_itd_me_zapsmall
+      CALL lim_var_zapsmall
 
       CALL lim_var_glo2eqv
@@ -124 +124 @@
       ! zap small values
       !-----------------
-      CALL lim_itd_me_zapsmall
+      CALL lim_var_zapsmall
 
       !---------------------
@@ -148 +148 @@
       ! Diagnostics
       ! -------------------------------------------------
+      DO jl  = 1, jpl
+         afx_dyn(:,:) = afx_dyn(:,:) + ( a_i(:,:,jl) - a_i_b(:,:,jl) ) * r1_rdtice
+      END DO
+
       d_u_ice_dyn(:,:)     = u_ice(:,:)     - u_ice_b(:,:)
       d_v_ice_dyn(:,:)     = v_ice(:,:)     - v_ice_b(:,:)