Ignore:
Timestamp:
07/27/12 16:04:22 (12 years ago)
Author:
ymipsl
Message:

externalize earth constant in run.def and add scalling factor functionnality

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r25 r32  
    4444  dt=90. 
    4545  CALL getin('dt',dt) 
    46  
     46  dt=dt/scale_factor 
     47   
    4748  itaumax=100 
    4849  CALL getin('itaumax',itaumax) 
    … …  
    5051  write_period=0 
    5152  CALL getin('write_period',write_period) 
     53  write_period=write_period/scale_factor 
     54   
    5255  itau_out=INT(write_period/dt) 
    5356   
    … …  
    9396   
    9497  CALL etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 
     98   
     99  CALL writefield('ps',f_ps) 
     100  CALL writefield('theta_rhodz',f_theta_rhodz) 
    95101   
    96102  DO it=0,itaumax 
Note: See TracChangeset for help on using the changeset viewer.