Changeset 128 for trunk/SOURCES


Ignore:
Timestamp:
09/26/17 14:37:05 (7 years ago)
Author:
dumas
Message:

Call calving, ablation_bord and flottab in grisli_init for not having big ice-shelves in Antarctic at the beggining

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/main3D-0.4-40km.f90

    r113 r128  
    281281           end do 
    282282 
    283  
    284283           call Neffect() 
    285284           call flottab() 
    286  
    287  
     285           call calving 
     286           call ablation_bord 
     287           call flottab 
    288288           call Neffect() 
    289  
    290  
    291289           call diffusiv() 
    292290           call SIA_velocities() 
    293  
    294291        endif 
    295292 
Note: See TracChangeset for help on using the changeset viewer.