Ignore:
Timestamp:
10/03/18 17:58:55 (6 years ago)
Author:
dubos
Message:

devel : make_icosa option for mixed precision

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/data_unstructured.F90

    r700 r744  
    1313       caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0 
    1414  LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE. 
     15 
     16#ifdef CPP_MIXED_PREC 
     17  LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.TRUE. 
     18#else 
     19  LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.FALSE. 
     20#endif 
    1521 
    1622  INDEX, BIND(C) :: llm, nqdyn, edge_num, primal_num, dual_num, & 
Note: See TracChangeset for help on using the changeset viewer.