- Timestamp:
- 2014-06-23T16:54:12+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90
r4649 r4685 5 5 !!====================================================================== 6 6 !! History : 3.0 ! 2006-04 (M. Vancoppenolle) Original code 7 !! 3.6 ! 2014-06 (C. Rousset) Complete rewriting/cleaning 7 8 !!---------------------------------------------------------------------- 8 9 #if defined key_lim3 … … 64 65 !! ** Purpose : Computes update of sea-ice global variables at 65 66 !! the end of the time step. 66 !! Address pathological cases67 !! This place is very important68 !!69 !! ** Method :70 !! Ice speed from ice dynamics71 !! Ice thickness, Snow thickness, Temperatures, Lead fraction72 !! from advection and ice thermodynamics73 67 !! 74 !! ** Action : -75 68 !!--------------------------------------------------------------------- 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 87 73 ! 88 74 REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b
Note: See TracChangeset
for help on using the changeset viewer.