Ignore:
Timestamp:
07/31/14 16:38:47 (10 years ago)
Author:
milmd
Message:

Architecture files and some modifications to compile and run on ada.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/gcm.F

    r227 r264  
    563563        t_ops =((1.0*iecri)/day_step) * daysec   
    564564        t_wrt = daysec ! iecri * daysec ! write output every t_wrt 
    565         CALL inithist(day_ref,annee_ref,time_step, 
    566      &                  t_ops,t_wrt) 
     565!        CALL inithist(day_ref,annee_ref,time_step, 
     566!     &                  t_ops,t_wrt) 
    567567        endif 
    568568 
    … …  
    571571          t_ops = iperiod * time_step ! do operations every t_ops 
    572572          t_wrt = periodav * daysec   ! write output every t_wrt 
    573           CALL initdynav(day_ref,annee_ref,time_step, 
    574      &                   t_ops,t_wrt) 
     573!          CALL initdynav(day_ref,annee_ref,time_step, 
     574!     &                   t_ops,t_wrt) 
    575575!         CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step, 
    576576!     .        t_ops, t_wrt, histaveid) 
Note: See TracChangeset for help on using the changeset viewer.