Changeset 9604 for NEMO/trunk/src/ICE/icethd.F90
- Timestamp:
- 2018-05-18T09:53:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icethd.F90
r9598 r9604 4 4 !! sea-ice : master routine for thermodynamics 5 5 !!====================================================================== 6 !! History : LIM ! 2000-01 (M.A. Morales Maqueda, H. Goosse, T. Fichefet) LIM-1 7 !! 2.0 ! 2002-07 (C. Ethe, G. Madec) LIM-2 (F90 rewriting) 8 !! 3.0 ! 2005-11 (M. Vancoppenolle) LIM-3 : Multi-layer thermodynamics + salinity variations 9 !! - ! 2007-04 (M. Vancoppenolle) add ice_thd_glohec, ice_thd_con_dh and ice_thd_con_dif 10 !! 3.2 ! 2009-07 (M. Vancoppenolle, Y. Aksenov, G. Madec) bug correction in wfx_snw 11 !! 3.3 ! 2010-11 (G. Madec) corrected snow melting heat (due to factor betas) 12 !! 4.0 ! 2011-02 (G. Madec) dynamical allocation 13 !! - ! 2012-05 (C. Rousset) add penetration solar flux 6 !! History : 1.0 ! 2000-01 (M.A. Morales Maqueda, H. Goosse, T. Fichefet) LIM-1 7 !! 2.0 ! 2002-07 (C. Ethe, G. Madec) LIM-2 8 !! 3.0 ! 2005-11 (M. Vancoppenolle) LIM-3 9 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] 14 10 !!---------------------------------------------------------------------- 15 11 #if defined key_si3 … … 73 69 !! ** Purpose : This routine manages ice thermodynamics 74 70 !! 75 !! ** Action : - Initialisation of some variables 76 !! - Some preliminary computation (oceanic heat flux 77 !! at the ice base, snow acc.,heat budget of the leads) 78 !! - selection of the icy points and put them in an array 79 !! - call ice_thd_zdf for vertical heat diffusion 80 !! - call ice_thd_dh for vertical ice growth and melt 81 !! - call ice_thd_ent for enthalpy remapping 82 !! - call ice_thd_sal for ice desalination 83 !! - call ice_thd_temp to retrieve temperature from ice enthalpy 84 !! - call ice_thd_lam for extra lateral ice melt if active virtual thickness distribution 85 !! - call ice_thd_da for lateral ice melt 71 !! ** Action : - computation of oceanic sensible heat flux at the ice base 72 !! energy budget in the leads 73 !! net fluxes on top of ice and of ocean 74 !! - selection of grid cells with ice 75 !! - call ice_thd_zdf for vertical heat diffusion 76 !! - call ice_thd_dh for vertical ice growth and melt 77 !! - call ice_thd_pnd for melt ponds 78 !! - call ice_thd_ent for enthalpy remapping 79 !! - call ice_thd_sal for ice desalination 80 !! - call ice_thd_temp to retrieve temperature from ice enthalpy 81 !! - call ice_thd_lam for extra lateral ice melt if active virtual thickness distribution 82 !! - call ice_thd_da for lateral ice melt 86 83 !! - back to the geographic grid 87 !! - call ice_thd_rem for remapping thickness distribution88 !! - call ice_thd_do for ice growth in leads84 !! - call ice_thd_rem for remapping thickness distribution 85 !! - call ice_thd_do for ice growth in leads 89 86 !!------------------------------------------------------------------- 90 87 INTEGER, INTENT(in) :: kt ! number of iteration
Note: See TracChangeset
for help on using the changeset viewer.