Changeset 4685

Timestamp:

2014-06-23T16:54:12+02:00 (10 years ago)

Author:

clem

Message:

LIM3 in NEMO3.4: cleaning of limupdates

Location:

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3

Files:

• limupdate1.F90 (modified) (2 diffs)
• limupdate2.F90 (modified) (2 diffs)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

@@ -5 +5 @@
    !!======================================================================
    !! History :  3.0  !  2006-04  (M. Vancoppenolle) Original code
+   !!            3.6  !  2014-06  (C. Rousset)       Complete rewriting/cleaning
    !!----------------------------------------------------------------------
 #if defined key_lim3
@@ -65 +66 @@
       !!               
       !! ** Purpose :  Computes update of sea-ice global variables at 
-      !!               the end of the time step.
-      !!               Address pathological cases
-      !!               This place is very important
+      !!               the end of the dynamics.
       !!                
-      !! ** Method  :  
-      !!    Ice speed from ice dynamics
-      !!    Ice thickness, Snow thickness, Temperatures, Lead fraction
-      !!      from advection and ice thermodynamics 
-      !!
-      !! ** Action  : - 
       !!---------------------------------------------------------------------
-      INTEGER ::   ji, jj, jk, jl, jm    ! dummy loop indices
-      INTEGER ::   jbnd1, jbnd2
-      INTEGER ::   i_ice_switch
-      REAL(wp) ::   zinda, zindb, zindsn, zindic
-      REAL(wp) ::   zh, zdvres, zsal
-      REAL(wp) ::   zat_i_old, ztmelts
+      INTEGER  ::   ji, jj, jk, jl, jm    ! dummy loop indices
+      INTEGER  ::   jbnd1, jbnd2
+      INTEGER  ::   i_ice_switch
+      REAL(wp) ::   zsal
       !
       REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b 

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

@@ -5 +5 @@
    !!======================================================================
    !! History :  3.0  !  2006-04  (M. Vancoppenolle) Original code
+   !!            3.6  !  2014-06  (C. Rousset)       Complete rewriting/cleaning
    !!----------------------------------------------------------------------
 #if defined key_lim3
@@ -64 +65 @@
       !! ** Purpose :  Computes update of sea-ice global variables at 
       !!               the end of the time step.
-      !!               Address pathological cases
-      !!               This place is very important
-      !!                
-      !! ** Method  :  
-      !!    Ice speed from ice dynamics
-      !!    Ice thickness, Snow thickness, Temperatures, Lead fraction
-      !!      from advection and ice thermodynamics 
       !!
-      !! ** Action  : - 
       !!---------------------------------------------------------------------
-      INTEGER ::   ji, jj, jk, jl, jm    ! dummy loop indices
-      INTEGER ::   jbnd1, jbnd2
-      INTEGER ::   i_ice_switch
-      REAL(wp) ::   zindb, zindsn, zindic
-      REAL(wp) ::   zh, zdvres, zsal
-
-      REAL(wp) ::   zEs          ! specific enthalpy of snow (J/kg)
-      REAL(wp) ::   zEi          ! specific enthalpy of ice (J/kg)
-      REAL(wp) ::   zEw          ! specific enthalpy of exchanged water (J/kg)
-      REAL(wp) ::   zdE          ! specific enthalpy difference (J/kg)
-      REAL(wp) ::   zfmdt        ! exchange mass flux x time step (J/m2), >0 towards the ocean
+      INTEGER  ::   ji, jj, jk, jl, jm    ! dummy loop indices
+      INTEGER  ::   jbnd1, jbnd2
+      INTEGER  ::   i_ice_switch
+      REAL(wp) ::   zh, zsal
       !
       REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b