Ignore:
Timestamp:
05/22/12 18:06:53 (12 years ago)
Author:
ymipsl
Message:

some update

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/timeloop_sw.f90

    r12 r13  
    7070 
    7171  CALL allocate_caldyn 
    72    
     72  CALL init_dissip(dt) 
    7373 
    7474  CALL etat0_williamson(f_h,f_u) 
    … …  
    7878 
    7979    CALL caldyn(f_h, f_u, f_dh, f_du) 
     80     
    8081 
    8182    IF (scheme==Euler) THEN 
    … …  
    8990    ENDIF 
    9091 
     92    CALL dissip(f_u)    
     93 
    9194  ENDDO 
    9295   
Note: See TracChangeset for help on using the changeset viewer.