Ignore:
Timestamp:
05/16/19 23:52:50 (5 years ago)
Author:
dubos
Message:

devel : temporary deactivation of some features for unstructured mesh driver

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/output/write_etat0.f90

    r732 r868  
    1212  USE xios_mod 
    1313  USE caldyn_vars_mod 
     14  USE grid_param 
    1415  IMPLICIT NONE 
    1516    INTEGER,INTENT(IN)    :: it 
    … …  
    2829    INTEGER :: ind 
    2930     
    30      
     31    IF(grid_type == grid_unst) RETURN 
     32 
    3133    CALL allocate_field(f_ulon,field_t,type_real,llm,name='ulon') 
    3234    CALL allocate_field(f_ulat,field_t,type_real,llm,name='ulat') 
Note: See TracChangeset for help on using the changeset viewer.