Changeset 9656
- Timestamp:
- 2018-05-28T11:53:14+02:00 (6 years ago)
- Location:
- NEMO/trunk/src
- Files:
-
- 24 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_adv_pra.F90
r9604 r9656 4 4 !! sea-ice : advection => Prather scheme 5 5 !!====================================================================== 6 !! History : ! 2008-03 (M. Vancoppenolle) LIM-3 from LIM-2code6 !! History : ! 2008-03 (M. Vancoppenolle) original code 7 7 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] 8 8 !!-------------------------------------------------------------------- -
NEMO/trunk/src/ICE/icedyn_rhg_evp.F90
r9610 r9656 5 5 !!====================================================================== 6 6 !! History : - ! 2007-03 (M.A. Morales Maqueda, S. Bouillon) Original code 7 !! 3.0 ! 2008-03 (M. Vancoppenolle) LIM37 !! 3.0 ! 2008-03 (M. Vancoppenolle) adaptation to new model 8 8 !! - ! 2008-11 (M. Vancoppenolle, S. Bouillon, Y. Aksenov) add surface tilt in ice rheolohy 9 9 !! 3.3 ! 2009-05 (G.Garric) addition of the evp case 10 10 !! 3.4 ! 2011-01 (A. Porter) dynamical allocation 11 11 !! 3.5 ! 2012-08 (R. Benshila) AGRIF 12 !! 3.6 ! 2016-06 (C. Rousset) Rewriting + landfast ice + possibility to usemEVP (Bouillon 2013)12 !! 3.6 ! 2016-06 (C. Rousset) Rewriting + landfast ice + mEVP (Bouillon 2013) 13 13 !! 3.7 ! 2017 (C. Rousset) add aEVP (Kimmritz 2016-2017) 14 14 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] -
NEMO/trunk/src/ICE/iceistate.F90
r9604 r9656 260 260 WRITE(numout,*) 261 261 WRITE(numout,*) ' !!!! ALERT itest is not equal to 4 !!! ' 262 WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure '262 WRITE(numout,*) ' !!!! Something is wrong in the SI3 initialization procedure ' 263 263 WRITE(numout,*) 264 264 WRITE(numout,*) ' *** itest_i (i=1,4) = ', itest(:) -
NEMO/trunk/src/ICE/icethd.F90
r9604 r9656 4 4 !! sea-ice : master routine for thermodynamics 5 5 !!====================================================================== 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 6 !! History : 1.0 ! 2000-01 (M.A. Morales Maqueda, H. Goosse, T. Fichefet) original code 1D 9 7 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] 10 8 !!---------------------------------------------------------------------- -
NEMO/trunk/src/ICE/icethd_pnd.F90
r9604 r9656 4 4 !! sea-ice: Melt ponds on top of sea ice 5 5 !!====================================================================== 6 !! history : ! 2012 (O. Lecomte) Adaptation to LIMfrom Flocco and Turner6 !! history : ! 2012 (O. Lecomte) Adaptation from Flocco and Turner 7 7 !! ! 2017 (M. Vancoppenolle, O. Lecomte, C. Rousset) Implementation 8 8 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] -
NEMO/trunk/src/ICE/icethd_sal.F90
r9604 r9656 4 4 !! sea-ice : computation of salinity variations in the ice 5 5 !!====================================================================== 6 !! History : - ! 2003-05 (M. Vancoppenolle) UCL-ASTR first coding for LIM3-1D6 !! History : - ! 2003-05 (M. Vancoppenolle) original code 1-D 7 7 !! 3.0 ! 2005-12 (M. Vancoppenolle) adapted to the 3-D version 8 8 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] -
NEMO/trunk/src/ICE/icethd_zdf_bl99.F90
r9604 r9656 4 4 !! sea-ice: vertical heat diffusion in sea ice (computation of temperatures) 5 5 !!====================================================================== 6 !! History : ! 2003-02 (M. Vancoppenolle) original 1D code LIM6 !! History : ! 2003-02 (M. Vancoppenolle) original 1D code 7 7 !! ! 2005-06 (M. Vancoppenolle) 3d version 8 8 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] -
NEMO/trunk/src/NST/agrif_ice.F90
r9598 r9656 4 4 !! AGRIF : define in memory AGRIF variables for sea-ice 5 5 !!---------------------------------------------------------------------- 6 !! History : 3.4 ! 2012-08 (R. Benshila)Original code7 !! 3.6 ! 2016-05 (C. Rousset) Add LIM3 compatibility6 !! History : 3.4 ! 2012-08 (R. Benshila) Original code 7 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 8 8 !!---------------------------------------------------------------------- 9 9 #if defined key_agrif && defined key_si3 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_agrif' AGRIF zoom 12 !! 'key_si3' SI3 sea-ice model12 !! 'key_si3' SI3 sea-ice model 13 13 !!---------------------------------------------------------------------- 14 14 IMPLICIT NONE -
NEMO/trunk/src/NST/agrif_ice_interp.F90
r9610 r9656 3 3 !! *** MODULE agrif_ice_interp *** 4 4 !! Nesting module : interp surface ice boundary condition from a parent grid 5 !! Sea-Ice model : LIM 3.6 Sea ice model time-stepping6 5 !!===================================================================================== 7 !! History : 2.0 ! 04-2008 (F. Dupont) initial version6 !! History : 2.0 ! 04-2008 (F. Dupont) initial version 8 7 !! 3.4 ! 09-2012 (R. Benshila, C. Herbaut) update and EVP 9 !! 3.6 ! 05-2016 (C. Rousset) Add LIM3 compatibility8 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 10 9 !!---------------------------------------------------------------------- 11 10 #if defined key_agrif && defined key_si3 12 11 !!---------------------------------------------------------------------- 13 !! 'key_si3' : LIM 3.6sea-ice model14 !! 'key_agrif' :AGRIF library12 !! 'key_si3' SI3 sea-ice model 13 !! 'key_agrif' AGRIF library 15 14 !!---------------------------------------------------------------------- 16 15 !! agrif_interp_ice : interpolation of ice at "after" sea-ice time step … … 41 40 SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax ) 42 41 !!----------------------------------------------------------------------- 43 !! *** ROUTINE agrif_ rhg_lim3***42 !! *** ROUTINE agrif_interp_ice *** 44 43 !! 45 44 !! ** Method : simple call to atomic routines using stored values to -
NEMO/trunk/src/NST/agrif_ice_update.F90
r9610 r9656 6 6 !! *** MODULE agrif_ice_update *** 7 7 !! Nesting module : update surface ocean boundary condition over ice from a child grid 8 !! Sea-Ice model : LIM 3.6 Sea ice model time-stepping9 8 !!===================================================================================== 10 !! History : 2.0 ! 04-2008 (F. Dupont) initial version9 !! History : 2.0 ! 04-2008 (F. Dupont) initial version 11 10 !! 3.4 ! 08-2012 (R. Benshila, C. Herbaut) update and EVP 12 !! 3.6 ! 05-2016 (C. Rousset) Add LIM3 compatibility11 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 13 12 !!---------------------------------------------------------------------- 14 13 #if defined key_agrif && defined key_si3 15 14 !!---------------------------------------------------------------------- 16 !! 'key_si3' : LIM 3.6sea-ice model17 !! 'key_agrif' : AGRIF library15 !! 'key_si3' : SI3 sea-ice model 16 !! 'key_agrif' : AGRIF library 18 17 !!---------------------------------------------------------------------- 19 18 !! agrif_update_ice : update sea-ice on boundaries or total 20 19 !! child domain for velocities and ice properties 21 !! update_tra_ice 22 !! update_u_ice 23 !! update_v_ice 20 !! update_tra_ice : sea-ice properties 21 !! update_u_ice : zonal ice velocity 22 !! update_v_ice : meridional ice velocity 24 23 !!---------------------------------------------------------------------- 25 24 USE dom_oce -
NEMO/trunk/src/NST/agrif_user.F90
r9610 r9656 497 497 !! *** ROUTINE Agrif_InitValues_cont_ice *** 498 498 !! 499 !! ** Purpose :: Initialisation of variables to be interpolated for LIM3499 !! ** Purpose :: Initialisation of variables to be interpolated for ice 500 500 !!---------------------------------------------------------------------- 501 501 USE Agrif_Util … … 541 541 !! *** ROUTINE agrif_declare_var_ice *** 542 542 !! 543 !! ** Purpose :: Declaration of variables to be interpolated for LIM3543 !! ** Purpose :: Declaration of variables to be interpolated for ice 544 544 !!---------------------------------------------------------------------- 545 545 USE Agrif_Util -
NEMO/trunk/src/OCE/ASM/asminc.F90
r9598 r9656 826 826 REAL(wp) :: zincwgt ! IAU weight for current time step 827 827 #if defined key_si3 828 REAL(wp), DIMENSION(jpi,jpj) :: zofrld, zohicif, zseaicendg, zhicifinc ! LIM828 REAL(wp), DIMENSION(jpi,jpj) :: zofrld, zohicif, zseaicendg, zhicifinc 829 829 REAL(wp) :: zhicifmin = 0.5_wp ! ice minimum depth in metres 830 830 #endif … … 847 847 ENDIF 848 848 ! 849 ! Sea-ice : LIM-3 case849 ! Sea-ice : SI3 case 850 850 ! 851 851 #if defined key_si3 … … 896 896 neuler = 0 ! Force Euler forward step 897 897 ! 898 ! Sea-ice : LIM-3 case898 ! Sea-ice : SI3 case 899 899 ! 900 900 #if defined key_si3 -
NEMO/trunk/src/OCE/BDY/bdy_oce.F90
r9598 r9656 8 8 !! 3.3 ! 2010-09 (D. Storkey) add ice boundary conditions 9 9 !! 3.4 ! 2011 (D. Storkey) rewrite in preparation for OBC-BDY merge 10 !! 3.6 ! 2014-01 (C. Rousset) add ice boundary conditions for lim3 10 !! 3.6 ! 2014-01 (C. Rousset) add ice boundary conditions for new model 11 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 11 12 !!---------------------------------------------------------------------- 12 13 USE par_oce ! ocean parameters -
NEMO/trunk/src/OCE/BDY/bdydta.F90
r9629 r9656 11 11 !! 3.3 ! 2010-09 (D.Storkey) add ice boundary conditions 12 12 !! 3.4 ! 2011 (D. Storkey) rewrite in preparation for OBC-BDY merge 13 !! 3.6 ! 2012-01 (C. Rousset) add ice boundary conditions for lim3 13 !! 3.6 ! 2012-01 (C. Rousset) add ice boundary conditions for sea ice 14 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 14 15 !!---------------------------------------------------------------------- 15 16 -
NEMO/trunk/src/OCE/BDY/bdyice.F90
r9598 r9656 2 2 !!====================================================================== 3 3 !! *** MODULE bdyice *** 4 !! Unstructured Open Boundary Cond. : Open boundary conditions for sea-ice ( LIM3)4 !! Unstructured Open Boundary Cond. : Open boundary conditions for sea-ice (SI3) 5 5 !!====================================================================== 6 6 !! History : 3.3 ! 2010-09 (D. Storkey) Original code 7 !! 3.4 ! 201 1 (D. Storkey) rewrite in preparation for OBC-BDY merge8 !! - ! 2012-01 (C. Rousset) add lim3 and remove useless jk loop7 !! 3.4 ! 2012-01 (C. Rousset) add new sea ice model 8 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 9 9 !!---------------------------------------------------------------------- 10 10 #if defined key_si3 11 11 !!---------------------------------------------------------------------- 12 !! 'key_si3' LIM-3 sea ice model12 !! 'key_si3' SI3 sea ice model 13 13 !!---------------------------------------------------------------------- 14 14 !! bdy_ice : Application of open boundaries to ice … … 37 37 38 38 PUBLIC bdy_ice ! routine called in sbcmod 39 PUBLIC bdy_ice_dyn ! routine called in limrhg39 PUBLIC bdy_ice_dyn ! routine called in icedyn_rhg_evp 40 40 41 41 !!---------------------------------------------------------------------- … … 50 50 !! *** SUBROUTINE bdy_ice *** 51 51 !! 52 !! ** Purpose : - Apply open boundary conditions for ice ( LIM3)52 !! ** Purpose : - Apply open boundary conditions for ice (SI3) 53 53 !! 54 54 !!---------------------------------------------------------------------- -
NEMO/trunk/src/OCE/C1D/step_c1d.F90
r9598 r9656 38 38 !! *** ROUTINE stp_c1d *** 39 39 !! 40 !! ** Purpose : - Time stepping of SBC including LIM(dynamic and thermodynamic eqs.)40 !! ** Purpose : - Time stepping of SBC including sea ice (dynamic and thermodynamic eqs.) 41 41 !! - Time stepping of OPA (momentum and active tracer eqs.) 42 42 !! - Time stepping of TOP (passive tracer eqs.) -
NEMO/trunk/src/OCE/DOM/phycst.F90
r9598 r9656 84 84 #endif 85 85 #if defined key_cice 86 REAL(wp), PUBLIC :: rcdsn = 0.31_wp !: thermal conductivity of snow [W/m/K] , now namelist parameter for LIM386 REAL(wp), PUBLIC :: rcdsn = 0.31_wp !: thermal conductivity of snow [W/m/K] 87 87 #endif 88 88 #if defined key_si3 -
NEMO/trunk/src/OCE/ICB/icbutl.F90
r9598 r9656 23 23 USE sbc_oce ! ocean surface boundary conditions 24 24 #if defined key_si3 25 USE ice, ONLY: u_ice, v_ice, hm_i ! LIM-3 variables25 USE ice, ONLY: u_ice, v_ice, hm_i ! SI3 variables 26 26 #endif 27 27 -
NEMO/trunk/src/OCE/OBS/diaobs.F90
r9598 r9656 501 501 USE phycst , ONLY : rday ! Physical constants 502 502 #if defined key_si3 503 USE ice , ONLY : at_i ! LIM3 Ice model variables503 USE ice , ONLY : at_i ! SI3 Ice model variables 504 504 #endif 505 505 #if defined key_cice -
NEMO/trunk/src/OCE/SBC/sbc_ice.F90
r9654 r9656 2 2 !!====================================================================== 3 3 !! *** MODULE sbc_ice *** 4 !! Surface module - LIM-3: parameters & variables defined in memory4 !! Surface module - SI3 & CICE: parameters & variables defined in memory 5 5 !!====================================================================== 6 !! History : 3.0 ! 2006-08 (G. Madec) Surface module 7 !! 3.2 ! 2009-06 (S. Masson) merge with ice_oce 8 !! 3.3.1! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation 9 !! 3.4 ! 2011-11 (C. Harris) CICE added as an option 6 !! History : 3.0 ! 2006-08 (G. Madec) Surface module 7 !! 3.2 ! 2009-06 (S. Masson) merge with ice_oce 8 !! 3.3.1 ! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation 9 !! 3.4 ! 2011-11 (C. Harris) CICE added as an option 10 !! 4.0 ! 2018 (many people) SI3 compatibility 10 11 !!---------------------------------------------------------------------- 11 12 #if defined key_si3 || defined key_cice … … 16 17 USE sbc_oce ! surface boundary condition: ocean 17 18 # if defined key_si3 18 USE ice ! LIM-3 parameters19 USE ice ! SI3 parameters 19 20 # endif 20 21 # if defined key_cice … … 30 31 31 32 # if defined key_si3 32 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .TRUE. !: LIM-3 ice model33 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .TRUE. !: SI3 ice model 33 34 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE 34 35 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'C' !: 'C'-grid ice-velocity 35 36 # endif 36 37 # if defined key_cice 37 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-338 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no SI3 38 39 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .TRUE. !: CICE ice model 39 40 CHARACTER(len=1), PUBLIC :: cp_ice_msh = 'F' !: 'F'-grid ice-velocity … … 76 77 #if defined key_cice 77 78 ! 78 ! for consistency with LIM, these are declared with three dimensions79 ! for consistency with SI3, these are declared with three dimensions 79 80 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: qlw_ice !: incoming long-wave 80 81 ! … … 93 94 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice ! jpi, jpj 94 95 95 ! already defined in ice.F90 for LIM396 ! already defined in ice.F90 for SI3 96 97 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i 97 98 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: h_i, h_s … … 167 168 PUBLIC sbc_ice_alloc ! 168 169 169 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-3 ice model170 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE 170 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no SI3 ice model 171 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE ice model 171 172 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = '-' !: no grid ice-velocity 172 173 REAL(wp) , PUBLIC, PARAMETER :: cldf_ice = 0.81 !: cloud fraction over sea ice, summer CLIO value [-] -
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r9598 r9656 535 535 ! 536 536 #if defined key_si3 537 qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) ! non solar without emp (only needed by LIM3)537 qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) ! non solar without emp (only needed by SI3) 538 538 qsr_oce(:,:) = qsr(:,:) 539 539 #endif … … 834 834 REAL(wp), DIMENSION(jpi,jpj,jpl) :: z_dqlw ! long wave heat sensitivity over ice 835 835 REAL(wp), DIMENSION(jpi,jpj,jpl) :: z_dqsb ! sensible heat sensitivity over ice 836 REAL(wp), DIMENSION(jpi,jpj) :: zevap, zsnw ! evaporation and snw distribution after wind blowing ( LIM3)836 REAL(wp), DIMENSION(jpi,jpj) :: zevap, zsnw ! evaporation and snw distribution after wind blowing (SI3) 837 837 REAL(wp), DIMENSION(jpi,jpj) :: zrhoa 838 838 !!--------------------------------------------------------------------- -
NEMO/trunk/src/OCE/SBC/sbcflx.F90
r9598 r9656 71 71 !! - emp upward mass flux (evap. - precip.) 72 72 !! - sfx salt flux; set to zero at nit000 but possibly non-zero 73 !! if ice is present (computed in limsbc(_2).F90)73 !! if ice is present 74 74 !!---------------------------------------------------------------------- 75 75 INTEGER, INTENT(in) :: kt ! ocean time step … … 120 120 CALL fld_fill( sf, slf_i, cn_dir, 'sbc_flx', 'flux formulation for ocean surface boundary condition', 'namsbc_flx' ) 121 121 ! 122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present ; set in limsbc(_2).F90)122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present) 123 123 ! 124 124 ENDIF -
NEMO/trunk/src/OCE/SBC/sbcmod.F90
r9654 r9656 34 34 USE sbcice_if ! surface boundary condition: ice-if sea-ice model 35 35 #if defined key_si3 36 USE icestp ! surface boundary condition: LIM 3.0sea-ice model36 USE icestp ! surface boundary condition: SI3 sea-ice model 37 37 #endif 38 USE sbcice_cice ! surface boundary condition: CICE 38 USE sbcice_cice ! surface boundary condition: CICE sea-ice model 39 39 USE sbcisf ! surface boundary condition: ice-shelf 40 40 USE sbccpl ! surface boundary condition: coupled formulation … … 216 216 CASE( 0 ) !- no ice in the domain 217 217 CASE( 1 ) !- Ice-cover climatology ("Ice-if" model) 218 CASE( 2 ) !- LIM3ice model218 CASE( 2 ) !- SI3 ice model 219 219 CASE( 3 ) !- CICE ice model 220 220 IF( .NOT.( ln_blk .OR. ln_cpl ) ) CALL ctl_stop( 'sbc_init : CICE sea-ice model requires ln_blk or ln_cpl = T' ) … … 427 427 CASE( 1 ) ; CALL sbc_ice_if ( kt ) ! Ice-cover climatology ("Ice-if" model) 428 428 #if defined key_si3 429 CASE( 2 ) ; CALL ice_stp ( kt, nsbc ) ! LIM-3 ice model429 CASE( 2 ) ; CALL ice_stp ( kt, nsbc ) ! SI3 ice model 430 430 #endif 431 431 CASE( 3 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model -
NEMO/trunk/src/OCE/nemogcm.F90
r9611 r9656 13 13 !! P. Delecluse, L.Terray, M.A. Filiberti, J. Vialar, A.M. Treguier, M. Levy) release 8.0 14 14 !! 8.1 ! 1997-06 (M. Imbard, G. Madec) 15 !! 8.2 ! 1999-11 (M. Imbard, H. Goosse) LIMsea-ice model15 !! 8.2 ! 1999-11 (M. Imbard, H. Goosse) sea-ice model 16 16 !! ! 1999-12 (V. Thierry, A-M. Treguier, M. Imbard, M-A. Foujols) OPEN-MP 17 17 !! ! 2000-07 (J-M Molines, M. Imbard) Open Boundary Conditions (CLIPPER)
Note: See TracChangeset
for help on using the changeset viewer.