Ignore:
Timestamp:
07/03/19 18:32:47 (5 years ago)
Author:
dubos
Message:

devel : cleanup USE data_unstructured_mod

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/compute_caldyn_Coriolis.F90

    r928 r939  
    6363  SUBROUTINE compute_caldyn_coriolis_unst(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du) 
    6464    USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 
    65     USE data_unstructured_mod, ONLY : id_coriolis, primal_num, dual_num, edge_num, & 
    66           left, right,primal_deg,primal_edge,primal_ne,trisk_deg,wee,trisk,Ai, & 
    67           enter_trace, exit_trace 
     65    USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 
     66         id_coriolis, left, right, primal_deg, primal_edge, primal_ne, & 
     67         trisk_deg, trisk, wee ! FIXME wee 
     68          
    6869    FIELD_U     :: hflux, Ftheta, qu, du ! IN, BUF, IN, INOUT 
    6970    FIELD_MASS  :: convm                 ! BUF 
Note: See TracChangeset for help on using the changeset viewer.