Changeset 4685


Ignore:
Timestamp:
2014-06-23T16:54:12+02:00 (6 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

    r4649 r4685  
    55   !!====================================================================== 
    66   !! History :  3.0  !  2006-04  (M. Vancoppenolle) Original code 
     7   !!            3.6  !  2014-06  (C. Rousset)       Complete rewriting/cleaning 
    78   !!---------------------------------------------------------------------- 
    89#if defined key_lim3 
     
    6566      !!                
    6667      !! ** Purpose :  Computes update of sea-ice global variables at  
    67       !!               the end of the time step. 
    68       !!               Address pathological cases 
    69       !!               This place is very important 
     68      !!               the end of the dynamics. 
    7069      !!                 
    71       !! ** Method  :   
    72       !!    Ice speed from ice dynamics 
    73       !!    Ice thickness, Snow thickness, Temperatures, Lead fraction 
    74       !!      from advection and ice thermodynamics  
    75       !! 
    76       !! ** Action  : -  
    7770      !!--------------------------------------------------------------------- 
    78       INTEGER ::   ji, jj, jk, jl, jm    ! dummy loop indices 
    79       INTEGER ::   jbnd1, jbnd2 
    80       INTEGER ::   i_ice_switch 
    81       REAL(wp) ::   zinda, zindb, zindsn, zindic 
    82       REAL(wp) ::   zh, zdvres, zsal 
    83       REAL(wp) ::   zat_i_old, ztmelts 
     71      INTEGER  ::   ji, jj, jk, jl, jm    ! dummy loop indices 
     72      INTEGER  ::   jbnd1, jbnd2 
     73      INTEGER  ::   i_ice_switch 
     74      REAL(wp) ::   zsal 
    8475      ! 
    8576      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

    r4649 r4685  
    55   !!====================================================================== 
    66   !! History :  3.0  !  2006-04  (M. Vancoppenolle) Original code 
     7   !!            3.6  !  2014-06  (C. Rousset)       Complete rewriting/cleaning 
    78   !!---------------------------------------------------------------------- 
    89#if defined key_lim3 
     
    6465      !! ** Purpose :  Computes update of sea-ice global variables at  
    6566      !!               the end of the time step. 
    66       !!               Address pathological cases 
    67       !!               This place is very important 
    68       !!                 
    69       !! ** Method  :   
    70       !!    Ice speed from ice dynamics 
    71       !!    Ice thickness, Snow thickness, Temperatures, Lead fraction 
    72       !!      from advection and ice thermodynamics  
    7367      !! 
    74       !! ** Action  : -  
    7568      !!--------------------------------------------------------------------- 
    76       INTEGER ::   ji, jj, jk, jl, jm    ! dummy loop indices 
    77       INTEGER ::   jbnd1, jbnd2 
    78       INTEGER ::   i_ice_switch 
    79       REAL(wp) ::   zindb, zindsn, zindic 
    80       REAL(wp) ::   zh, zdvres, zsal 
    81  
    82       REAL(wp) ::   zEs          ! specific enthalpy of snow (J/kg) 
    83       REAL(wp) ::   zEi          ! specific enthalpy of ice (J/kg) 
    84       REAL(wp) ::   zEw          ! specific enthalpy of exchanged water (J/kg) 
    85       REAL(wp) ::   zdE          ! specific enthalpy difference (J/kg) 
    86       REAL(wp) ::   zfmdt        ! exchange mass flux x time step (J/m2), >0 towards the ocean 
     69      INTEGER  ::   ji, jj, jk, jl, jm    ! dummy loop indices 
     70      INTEGER  ::   jbnd1, jbnd2 
     71      INTEGER  ::   i_ice_switch 
     72      REAL(wp) ::   zh, zsal 
    8773      ! 
    8874      REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b  
Note: See TracChangeset for help on using the changeset viewer.