Changeset 150


Ignore:
Timestamp:
10/26/17 14:31:16 (7 years ago)
Author:
aquiquet
Message:

bmeltshelf is called in initialisation whatever the value of icompteur + temperature computations aredone from the first timestep.

Location:
trunk/SOURCES
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r142 r150  
    31631611115 continue 
    317317 
     318     call  bmeltshelf ! afq --  
     319 
    318320     !       ======================================================== 
    319321     call flow_general 

  • trunk/SOURCES/steps_time_loop.f90

    r142 r150  
    301301     ! update values in the structures Geom_g, Temperature_g, ... 
    302302 
    303      calc_temp:     if ((nt.gt.2).and.(geoplace(1:5).ne.'mism3')) then 
     303! afq     calc_temp:     if ((nt.gt.2).and.(geoplace(1:5).ne.'mism3')) then 
     304     calc_temp:     if (geoplace(1:5).ne.'mism3') then 
    304305        if (itracebug.eq.1)  call tracebug('avant appel icetemp') 
    305306        call icetemp 
Note: See TracChangeset for help on using the changeset viewer.