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_NH_geopot.F90

    r878 r939  
    11MODULE compute_NH_geopot_mod 
    2   USE grid_param, ONLY : llm 
     2  USE grid_param 
    33  IMPLICIT NONE 
    44  PRIVATE 
    … …  
    136136    thermo_entropy 
    137137  USE disvert_mod, ONLY : ptop 
    138   USE data_unstructured_mod, ONLY : primal_num,edge_num,dual_num,id_NH_geopot,debug_hevi_solver_, & 
    139     PHI_BOT,pbot,rho_bot,enter_trace, exit_trace 
     138  USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 
     139       id_NH_geopot,debug_hevi_solver_, & 
     140       PHI_BOT,pbot,rho_bot 
    140141  FIELD_MASS   :: m_ik, theta   ! IN*2 
    141142  FIELD_GEOPOT :: m_il, W_il, Phi_il, Phi_star_il  ! IN,INOUT*2, LOCAL 
Note: See TracChangeset for help on using the changeset viewer.