Ignore:
Timestamp:
09/26/16 14:09:01 (8 years ago)
Author:
ymipsl
Message:
  • Add functionnality to input/output field of type U (value on the edges)
  • Management of start/restart files by XIOS

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r476 r483  
    66CONTAINS 
    77   
    8     
     8  SUBROUTINE init_etat0 
     9  USE xios_mod 
     10  USE omp_para 
     11  IMPLICIT NONE 
     12     
     13    IF (is_omp_master) THEN 
     14      IF (using_xios) CALL xios_set_file_attr("start", enabled=.TRUE.) 
     15    ENDIF 
     16     
     17  END SUBROUTINE init_etat0  
     18   
    919  SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 
    1020  USE icosa 
Note: See TracChangeset for help on using the changeset viewer.