Changeset 8322 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM

Timestamp:

2017-07-12T01:23:03+02:00 (7 years ago)

Author:

clem

Message:

change slightly the call to before fields so it more adequate

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

@@ -195 +195 @@
          IF( ln_limthd .AND. ln_bdy ) CALL bdy_ice_lim( kt )   ! -- bdy ice thermo 
          ! previous lead fraction and ice volume for flux calculations
-                                      CALL ice_bef                        
                                       CALL lim_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation
                                       CALL lim_var_agg(1)      ! at_i for coupling 
+                                      CALL ice_bef
 
          !------------------------------------------------------!