Changeset 8598


Ignore:
Timestamp:
2017-10-05T17:54:14+02:00 (4 years ago)
Author:
clem
Message:

second step for making ponds compliant with the new ice

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM
Files:
1 added
1 deleted
6 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/CONFIG/ORCA2_LIM3_PISCES/EXP00/namelist_ice_cfg

    r8531 r8598  
    1313!!             11 - Ice growth in open water           (namthd_do) 
    1414!!             12 - Ice salinity                       (namthd_sal) 
    15 !!             13 - Ice melt ponds                     (nammp) 
     15!!             13 - Ice melt ponds                     (namthd_pnd) 
    1616!!             14 - Ice initialization                 (namini) 
    1717!!             15 - Ice/snow albedos                   (namalb) 
     
    2020! 
    2121!------------------------------------------------------------------------------ 
    22 &nampar     !   Generic parameters 
     22&nampar         !   Generic parameters 
    2323!------------------------------------------------------------------------------ 
    2424/ 
    2525!------------------------------------------------------------------------------ 
    26 &namitd     !   Ice discretization 
     26&namitd         !   Ice discretization 
    2727!------------------------------------------------------------------------------ 
    2828/ 
    2929!------------------------------------------------------------------------------ 
    30 &namdyn     !   Ice dynamics 
     30&namdyn         !   Ice dynamics 
    3131!------------------------------------------------------------------------------ 
    3232/ 
     
    4848/ 
    4949!------------------------------------------------------------------------------ 
    50 &namthd     !   Ice thermodynamics 
     50&namthd         !   Ice thermodynamics 
    5151!------------------------------------------------------------------------------ 
    5252/ 
     
    5656/ 
    5757!------------------------------------------------------------------------------ 
    58 &namthd_da     !   Ice lateral melting 
     58&namthd_da      !   Ice lateral melting 
    5959!------------------------------------------------------------------------------ 
    6060/ 
    6161!------------------------------------------------------------------------------ 
    62 &namthd_do     !   Ice growth in open water 
     62&namthd_do      !   Ice growth in open water 
    6363!------------------------------------------------------------------------------ 
    6464/ 
     
    6868/ 
    6969!------------------------------------------------------------------------------ 
    70 &nammp      !   Melt ponds 
     70&namthd_pnd     !   Melt ponds 
    7171!------------------------------------------------------------------------------ 
    7272/ 
    7373!------------------------------------------------------------------------------ 
    74 &namini     !   Ice initialization 
     74&namini         !   Ice initialization 
    7575!------------------------------------------------------------------------------ 
    7676/ 
    7777!------------------------------------------------------------------------------ 
    78 &namalb     !   albedo parameters 
     78&namalb         !   albedo parameters 
    7979!------------------------------------------------------------------------------ 
    8080/ 
    8181!------------------------------------------------------------------------------ 
    82 &namdia     !   Diagnostics 
     82&namdia         !   Diagnostics 
    8383!------------------------------------------------------------------------------ 
    8484/ 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/CONFIG/ORCA2_SAS_LIM3/EXP00/namelist_ice_cfg

    r8517 r8598  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    22!! ESIM configuration namelist: Overwrites SHARED/namelist_ice_lim3_ref 
    3 !!              1 - Generic parameters                 (namice_run) 
    4 !!              2 - Ice thickness discretization       (namice_itd) 
    5 !!              3 - Ice dynamics                       (namice_dyn) 
    6 !!              4 - Ice ridging/rafting                (namice_rdgrft) 
    7 !!              5 - Ice rheology                       (namice_rhg) 
    8 !!              6 - Ice advection                      (namice_adv) 
    9 !!              7 - Ice thermodynamics                 (namice_thd) 
    10 !!              8 - Ice salinity                       (namice_sal) 
    11 !!              9 - Ice melt ponds                     (namice_mp) 
    12 !!             10 - Ice initialization                 (namice_ini) 
    13 !!             11 - Ice/snow albedos                   (namice_alb) 
    14 !!             12 - Ice diagnostics                    (namice_dia) 
     3!!              1 - Generic parameters                 (nampar) 
     4!!              2 - Ice thickness discretization       (namitd) 
     5!!              3 - Ice dynamics                       (namdyn) 
     6!!              4 - Ice ridging/rafting                (namdyn_rdgrft) 
     7!!              5 - Ice rheology                       (namdyn_rhg) 
     8!!              6 - Ice advection                      (namdyn_adv) 
     9!!              7 - Ice surface forcing                (namforcing) 
     10!!              8 - Ice thermodynamics                 (namthd) 
     11!!              9 - Ice heat diffusion                 (namthd_zdf) 
     12!!             10 - Ice lateral melting                (namthd_da) 
     13!!             11 - Ice growth in open water           (namthd_do) 
     14!!             12 - Ice salinity                       (namthd_sal) 
     15!!             13 - Ice melt ponds                     (namthd_pnd) 
     16!!             14 - Ice initialization                 (namini) 
     17!!             15 - Ice/snow albedos                   (namalb) 
     18!!             16 - Ice diagnostics                    (namdia) 
    1519!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    1620! 
    1721!------------------------------------------------------------------------------ 
    18 &namice_run     !   Generic parameters 
     22&nampar         !   Generic parameters 
    1923!------------------------------------------------------------------------------ 
    2024/ 
    2125!------------------------------------------------------------------------------ 
    22 &namice_itd     !   Ice discretization 
     26&namitd         !   Ice discretization 
    2327!------------------------------------------------------------------------------ 
    2428/ 
    2529!------------------------------------------------------------------------------ 
    26 &namice_dyn     !   Ice dynamics 
     30&namdyn         !   Ice dynamics 
    2731!------------------------------------------------------------------------------ 
    2832/ 
    2933!------------------------------------------------------------------------------ 
    30 &namice_rdgrft  !   Ice ridging/rafting 
     34&namdyn_rdgrft  !   Ice ridging/rafting 
    3135!------------------------------------------------------------------------------ 
    3236/ 
    3337!------------------------------------------------------------------------------ 
    34 &namice_rhg     !   Ice rheology 
     38&namdyn_rhg     !   Ice rheology 
    3539!------------------------------------------------------------------------------ 
    3640/ 
    3741!------------------------------------------------------------------------------ 
    38 &namice_adv     !   Ice advection 
     42&namdyn_adv     !   Ice advection 
    3943!------------------------------------------------------------------------------ 
    4044/ 
    4145!------------------------------------------------------------------------------ 
    42 &namice_thd     !   Ice thermodynamics 
     46&namforcing     !   Ice surface forcing 
    4347!------------------------------------------------------------------------------ 
    4448/ 
    4549!------------------------------------------------------------------------------ 
    46 &namice_sal     !   Ice salinity 
     50&namthd         !   Ice thermodynamics 
    4751!------------------------------------------------------------------------------ 
    4852/ 
    4953!------------------------------------------------------------------------------ 
    50 &namicemp      !   Melt ponds 
     54&namthd_zdf     !   Ice heat diffusion 
    5155!------------------------------------------------------------------------------ 
    5256/ 
    5357!------------------------------------------------------------------------------ 
    54 &namice_ini     !   Ice initialization 
     58&namthd_da      !   Ice lateral melting 
    5559!------------------------------------------------------------------------------ 
    5660/ 
    5761!------------------------------------------------------------------------------ 
    58 &namice_alb     !   albedo parameters 
     62&namthd_do      !   Ice growth in open water 
    5963!------------------------------------------------------------------------------ 
    6064/ 
    6165!------------------------------------------------------------------------------ 
    62 &namice_dia     !   Diagnostics 
     66&namthd_sal     !   Ice salinity 
    6367!------------------------------------------------------------------------------ 
    6468/ 
     69!------------------------------------------------------------------------------ 
     70&namthd_pnd     !   Melt ponds 
     71!------------------------------------------------------------------------------ 
     72/ 
     73!------------------------------------------------------------------------------ 
     74&namini         !   Ice initialization 
     75!------------------------------------------------------------------------------ 
     76/ 
     77!------------------------------------------------------------------------------ 
     78&namalb         !   albedo parameters 
     79!------------------------------------------------------------------------------ 
     80/ 
     81!------------------------------------------------------------------------------ 
     82&namdia         !   Diagnostics 
     83!------------------------------------------------------------------------------ 
     84/ 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/CONFIG/SHARED/namelist_ice_lim3_ref

    r8597 r8598  
    1313!!             11 - Ice growth in open water           (namthd_do) 
    1414!!             12 - Ice salinity                       (namthd_sal) 
    15 !!             13 - Ice melt ponds                     (nammp) 
     15!!             13 - Ice melt ponds                     (namthd_pnd) 
    1616!!             14 - Ice initialization                 (namini) 
    1717!!             15 - Ice/snow albedos                   (namalb) 
     
    2020! 
    2121!------------------------------------------------------------------------------ 
    22 &nampar     !   Generic parameters 
     22&nampar         !   Generic parameters 
    2323!------------------------------------------------------------------------------ 
    2424   jpl              =   5             !  number of ice  categories 
     
    3939/ 
    4040!------------------------------------------------------------------------------ 
    41 &namitd     !   Ice discretization 
     41&namitd         !   Ice discretization 
    4242!------------------------------------------------------------------------------ 
    4343   rn_himean        =   2.0           !  expected domain-average ice thickness (m) 
     
    4545/ 
    4646!------------------------------------------------------------------------------ 
    47 &namdyn     !   Ice dynamics 
     47&namdyn         !   Ice dynamics 
    4848!------------------------------------------------------------------------------ 
    4949   ln_dynFULL       = .true.          !  dyn.: full ice dynamics               (rheology + advection + ridging/rafting + correction) 
     
    120120/ 
    121121!------------------------------------------------------------------------------ 
    122 &namthd     !   Ice thermodynamics 
     122&namthd         !   Ice thermodynamics 
    123123!------------------------------------------------------------------------------ 
    124124   ln_icedH         = .true.          !  activate ice thickness change from growing/melting (T) or not (F) 
     
    150150/ 
    151151!------------------------------------------------------------------------------ 
    152 &namthd_do     !   Ice growth in open water 
     152&namthd_do      !   Ice growth in open water 
    153153!------------------------------------------------------------------------------ 
    154154   rn_hinew         =   0.1           !  thickness for new ice formation in open water (m), must be larger than rn_hnewice 
     
    174174/ 
    175175!------------------------------------------------------------------------------ 
    176 &nammp      !   Melt ponds 
     176&namthd_pnd     !   Melt ponds 
    177177!------------------------------------------------------------------------------ 
    178178   ln_pnd_H12       = .false.         !  activate evolutive melt ponds (from Holland et al 2012) 
     
    184184/ 
    185185!------------------------------------------------------------------------------ 
    186 &namini     !   Ice initialization 
     186&namini         !   Ice initialization 
    187187!------------------------------------------------------------------------------ 
    188188   ln_iceini        = .true.          !  activate ice initialization (T) or not (F) 
     
    209209/ 
    210210!------------------------------------------------------------------------------ 
    211 &namalb     !   albedo parameters 
     211&namalb         !   albedo parameters 
    212212!------------------------------------------------------------------------------ 
    213213   !                                  !                          !  obs range (cloud-sky) 
     
    219219/ 
    220220!------------------------------------------------------------------------------ 
    221 &namdia     !   Diagnostics 
     221&namdia         !   Diagnostics 
    222222!------------------------------------------------------------------------------ 
    223223   ln_icediachk     = .false.         !  check online the heat, mass & salt budgets (T) or not (F) 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/EXP00/namelist_ice_cfg

    r8321 r8598  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! LIM3 namelist:   
    3 !!              1 - Generic parameters                 (namicerun) 
    4 !!              2 - Diagnostics                        (namicediag) 
    5 !!              3 - Ice initialization                 (namiceini) 
    6 !!              4 - Ice discretization                 (namiceitd) 
    7 !!              5 - Ice dynamics and transport         (namicedyn) 
    8 !!              6 - Ice thermodynamics                 (namicethd) 
    9 !!              7 - Ice salinity                       (namicesal) 
    10 !!              8 - Ice mechanical redistribution      (namiceitdme) 
    11 !!              9 - Ice/snow albedos                   (namicealb) 
     2!! ESIM namelist:   
     3!!              1 - Generic parameters                 (nampar) 
     4!!              2 - Ice thickness discretization       (namitd) 
     5!!              3 - Ice dynamics                       (namdyn) 
     6!!              4 - Ice ridging/rafting                (namdyn_rdgrft) 
     7!!              5 - Ice rheology                       (namdyn_rhg) 
     8!!              6 - Ice advection                      (namdyn_adv) 
     9!!              7 - Ice surface forcing                (namforcing) 
     10!!              8 - Ice thermodynamics                 (namthd) 
     11!!              9 - Ice heat diffusion                 (namthd_zdf) 
     12!!             10 - Ice lateral melting                (namthd_da) 
     13!!             11 - Ice growth in open water           (namthd_do) 
     14!!             12 - Ice salinity                       (namthd_sal) 
     15!!             13 - Ice melt ponds                     (namthd_pnd) 
     16!!             14 - Ice initialization                 (namini) 
     17!!             15 - Ice/snow albedos                   (namalb) 
     18!!             16 - Ice diagnostics                    (namdia) 
    1219!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    1320! 
    1421!------------------------------------------------------------------------------ 
    15 &namicerun     !   Generic parameters 
     22&nampar         !   Generic parameters 
    1623!------------------------------------------------------------------------------ 
    17    jpl              =    1          !  number of ice  categories 
    18    nlay_i           =    1          !  number of ice  layers 
    19    ln_limthd        =  .false.       !  ice thermo   (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    20    ln_limdyn        =  .true.       !  ice dynamics (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    21    nn_limdyn        =   0           !     (ln_limdyn=T) switch for ice dynamics 
    22                                     !      2: total 
    23                                     !      1: advection only (no diffusion, no ridging/rafting) 
    24                                     !      0: advection only (as 1 but with prescribed velocity, bypass rheology) 
    25    rn_uice          =   0.5    !     (nn_limdyn=0) ice u-velocity 
    26    rn_vice          =   0.0    !     (nn_limdyn=0) ice v-velocity 
     24   jpl              =   1             !  number of ice  categories 
     25   nlay_i           =   1             !  number of ice  layers 
     26   ln_icedyn        = .true.          !  ice dynamics (T) or not (F) 
     27   ln_icethd        = .false.         !  ice thermo   (T) or not (F) 
    2728/ 
    2829!------------------------------------------------------------------------------ 
    29 &namicediag    !   Diagnostics 
     30&namitd         !   Ice discretization 
     31!------------------------------------------------------------------------------ 
     32   rn_himin         =   0.1           !  minimum ice thickness (m) used in remapping 
     33/ 
     34!------------------------------------------------------------------------------ 
     35&namdyn         !   Ice dynamics 
     36!------------------------------------------------------------------------------ 
     37   ln_dynFULL       = .false.         !  dyn.: full ice dynamics               (rheology + advection + ridging/rafting + correction) 
     38   ln_dynRHGADV     = .false.         !  dyn.: no ridge/raft & no corrections  (rheology + advection) 
     39   ln_dynADV        = .true.          !  dyn.: only advection w prescribed vel.(rn_uvice + advection) 
     40      rn_uice       =   0.5           !        prescribed ice u-velocity 
     41      rn_vice       =   0.            !        prescribed ice v-velocity 
     42/ 
     43!------------------------------------------------------------------------------ 
     44&namdyn_rdgrft  !   Ice ridging/rafting 
    3045!------------------------------------------------------------------------------ 
    3146/ 
    3247!------------------------------------------------------------------------------ 
    33 &namiceini     !   Ice initialization 
    34 !------------------------------------------------------------------------------ 
    35                   ! -- limistate -- ! 
    36    ln_limini      = .true.         !  activate ice initialization (T) or not (F) 
    37    ln_limini_file = .true.         !  netcdf file provided for initialization (T) or not (F) 
    38    cn_dir="./" 
    39    sn_hti = 'initice'    , -12 ,'hti'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    40    sn_hts = 'initice'    , -12 ,'hts'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    41    sn_ati = 'initice'    , -12 ,'ati'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    42    sn_tsu = 'initice'    , -12 ,'tsu'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    43    sn_tmi = 'initice'    , -12 ,'tmi'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    44    sn_smi = 'initice'    , -12 ,'smi'   ,  .false.  , .true., 'yearly'  , '' , '', '' 
    45 / 
    46 !------------------------------------------------------------------------------ 
    47 &namiceitd     !   Ice discretization 
     48&namdyn_rhg     !   Ice rheology 
    4849!------------------------------------------------------------------------------ 
    4950/ 
    5051!------------------------------------------------------------------------------ 
    51 &namicedyn     !   Ice dynamics and transport 
     52&namdyn_adv     !   Ice advection 
    5253!------------------------------------------------------------------------------ 
    53                   ! -- limtrp & limadv -- ! 
    54    nn_limadv      =    0            !  choose the advection scheme (-1=Prather ; 0=Ultimate-Macho) 
    55    nn_limadv_ord  =    5            !  choose the order of the advection scheme (if nn_limadv=0) 
    5654/ 
    5755!------------------------------------------------------------------------------ 
    58 &namicethd     !   Ice thermodynamics 
     56&namforcing     !   Ice surface forcing 
    5957!------------------------------------------------------------------------------ 
    60                   ! -- limthd_dh -- ! 
    61    ln_limdH       = .true.          !  activate ice thickness change from growing/melting (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    62                   ! -- limthd_da -- ! 
    63    ln_limdA       = .true.          !  activate lateral melting param. (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    64                  ! -- limthd_lac -- ! 
    65    ln_limdO       = .true.          !  activate ice growth in open-water (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    66    rn_hnewice     = 0.02            !  thickness for new ice formation in open water (m) 
    67                   ! -- limitd_th -- ! 
    68    rn_himin       = 0.01            !  minimum ice thickness (m) used in remapping, must be smaller than rn_hnewice 
    6958/ 
    7059!------------------------------------------------------------------------------ 
    71 &namicesal     !   Ice salinity 
     60&namthd         !   Ice thermodynamics 
    7261!------------------------------------------------------------------------------ 
    73                  ! -- limthd_sal -- ! 
    74    ln_limdS       = .true.          !  activate gravity drainage and flushing (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    7562/ 
    7663!------------------------------------------------------------------------------ 
    77 &namiceitdme   !   Ice mechanical redistribution (ridging and rafting) 
     64&namthd_zdf     !   Ice heat diffusion 
    7865!------------------------------------------------------------------------------ 
    79                   ! -- limitd_me -- ! 
    80    ln_ridging     =   .true.        !  ridging activated (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    81    ln_rafting     =   .true.        !  rafting activated (T) or not (F) => DO NOT TOUCH UNLESS U KNOW WHAT U DO 
    8266/ 
    83 !----------------------------------------------------------------------- 
    84 &namicealb     !   albedo parameters 
    85 !----------------------------------------------------------------------- 
     67!------------------------------------------------------------------------------ 
     68&namthd_da      !   Ice lateral melting 
     69!------------------------------------------------------------------------------ 
    8670/ 
     71!------------------------------------------------------------------------------ 
     72&namthd_do      !   Ice growth in open water 
     73!------------------------------------------------------------------------------ 
     74/ 
     75!------------------------------------------------------------------------------ 
     76&namthd_sal     !   Ice salinity 
     77!------------------------------------------------------------------------------ 
     78/ 
     79!------------------------------------------------------------------------------ 
     80&namthd_pnd     !   Melt ponds 
     81!------------------------------------------------------------------------------ 
     82/ 
     83!------------------------------------------------------------------------------ 
     84&namini         !   Ice initialization 
     85!------------------------------------------------------------------------------ 
     86/ 
     87!------------------------------------------------------------------------------ 
     88&namalb         !   albedo parameters 
     89!------------------------------------------------------------------------------ 
     90/ 
     91!------------------------------------------------------------------------------ 
     92&namdia         !   Diagnostics 
     93!------------------------------------------------------------------------------ 
     94/ 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8597 r8598  
    3535   USE icedyn         ! sea-ice: dynamics 
    3636   USE icethd         ! sea-ice: thermodynamics 
    37    USE limmp          ! sea-ice: melt ponds 
    3837   USE icecor         ! sea-ice: corrections 
    3938   USE iceupdate      ! sea-ice: sea surface boundary condition update 
     
    170169         IF( ln_icethd )                CALL ice_thd( kt )            ! -- Ice thermodynamics       
    171170         ! 
    172                                         CALL lim_mp( kt )             ! -- Melt ponds 
    173171         ! 
    174172         IF( ln_icethd )                CALL ice_cor( kt , 2 )        ! -- Corrections 
     
    238236      CALL ice_itd_init                ! ice thickness distribution initialization 
    239237      ! 
    240       CALL lim_mp_init                 ! set melt ponds parameters (clem: important to be located here) 
    241       ! 
     238      IF( ln_icethd ) THEN 
     239         CALL ice_thd_init             ! set ice thermodynics parameters (clem: important to call it first for melt ponds) 
     240      ENDIF    
    242241      !                                ! Initial sea-ice state 
    243242      IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst 
     
    255254         CALL ice_dyn_init             ! set ice dynamics parameters 
    256255      ENDIF 
    257       ! 
    258       IF( ln_icethd ) THEN 
    259          CALL ice_thd_init             ! set ice thermodynics parameters 
    260       ENDIF    
    261256      ! 
    262257      CALL ice_update_init             ! ice surface boundary condition 
     
    398393      wfx_snw_sub(:,:) = 0._wp ; wfx_ice_sub(:,:) = 0._wp 
    399394      wfx_snw_sni(:,:) = 0._wp  
    400       ! MV MP 2016 
    401395      wfx_pnd(:,:) = 0._wp 
    402       ! END MV MP 2016 
    403396 
    404397      hfx_thd(:,:) = 0._wp   ; 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

    r8565 r8598  
    3434   USE icethd_ent     ! sea-ice: enthalpy redistribution 
    3535   USE icethd_do      ! sea-ice: growth in open water 
     36   USE icethd_pnd     ! sea-ice: melt ponds 
    3637   USE iceitd         ! sea-ice: remapping thickness distribution 
    3738   USE icetab         ! sea-ice: 1D <==> 2D transformation 
     
    8687      !!             - call ice_thd_rem  for remapping thickness distribution 
    8788      !!             - call ice_thd_do   for ice growth in leads 
    88       !!--------------------------------------------------------------------- 
     89      !!------------------------------------------------------------------- 
    8990      INTEGER, INTENT(in) :: kt    ! number of iteration 
    9091      ! 
     
    272273      ! 
    273274      IF( ln_icedO )       CALL ice_thd_do                 ! --- frazil ice growing in leads --- ! 
     275      ! 
     276                           CALL ice_thd_pnd( kt )          ! --- Melt ponds --- ! 
    274277      ! 
    275278      ! controls 
     
    530533 
    531534   SUBROUTINE ice_thd_init 
    532       !!----------------------------------------------------------------------- 
     535      !!------------------------------------------------------------------- 
    533536      !!                   ***  ROUTINE ice_thd_init ***  
    534537      !!                  
     
    570573      IF( ln_icedO )   CALL ice_thd_do_init    ! set ice growth in open water parameters 
    571574                       CALL ice_thd_sal_init   ! set ice salinity parameters 
     575                       CALL ice_thd_pnd_init   ! set melt ponds parameters 
    572576      ! 
    573577      IF( ln_icedS .AND. nn_icesal == 1 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.