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/diagnostics/observable.f90

    r732 r868  
    4848    USE omega_mod 
    4949    USE kinetic_mod 
    50  
     50    USE grid_param 
    5151    LOGICAL, INTENT(IN) :: init 
    5252    INTEGER :: l 
    … …  
    5757    TYPE(t_field),POINTER :: f_phis(:), f_ps(:), f_mass(:), f_geopot(:), f_theta_rhodz(:), f_u(:), f_W(:), f_q(:) 
    5858!    IF (is_master) PRINT *,'CALL write_output_fields_basic' 
     59 
     60    IF(grid_type==grid_unst) RETURN ! FIXME 
    5961 
    6062    CALL transfert_request(f_ps,req_i1) 
Note: See TracChangeset for help on using the changeset viewer.