Ignore:
Timestamp:
12/15/14 17:10:42 (10 years ago)
Author:
ymipsl
Message:
  • activate splitting of XIOS file in physics so starting time is passed to the physic initialiszation.
  • call restart file periodically using the - itau_write_etat0 - start parameter.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/timeloop_gcm.f90

    r304 r314  
    302302      CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_wflux, f_q) 
    303303    ENDIF 
     304 
     305    IF (MOD(it,itau_write_etat0)==0 .OR. it==itau0+itaumax) THEN 
     306      CALL write_etat0(it,f_ps, f_phis,f_theta_rhodz,f_u,f_q) 
     307    ENDIF 
    304308     
    305309  ENDDO 
    306310 
    307   CALL write_etat0(itau0+itaumax,f_ps, f_phis,f_theta_rhodz,f_u,f_q)  
     311!  CALL write_etat0(itau0+itaumax,f_ps, f_phis,f_theta_rhodz,f_u,f_q)  
    308312 
    309313  CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it)   
Note: See TracChangeset for help on using the changeset viewer.