Ignore:
Timestamp:
07/16/12 11:26:23 (12 years ago)
Author:
ymipsl
Message:

Simplify the management of the module.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/advect_tracer.f90

    r17 r19  
    11MODULE advect_tracer_mod 
    2   USE genmod 
    3   USE field_mod 
    4   USE transfert_mod 
     2  USE icosa 
    53  PRIVATE 
    64  INTEGER,PARAMETER::iapp_tracvl= 3 
    … …  
    2422   
    2523  SUBROUTINE advect_tracer(f_ps,f_u, f_q) 
    26   USE domain_mod 
    27   USE field_mod 
    28   USE dimensions 
    29   USE grid_param 
    30   USE geometry 
    31   USE metric 
     24  USE icosa 
    3225  USE advect_mod 
    3326  USE disvert_mod 
    … …  
    305298!c     Shema  d'advection " pseudo amont " . 
    306299!c    ******************************************************************** 
    307   USE domain_mod 
    308   USE dimensions 
    309   USE grid_param 
    310   USE geometry 
    311   USE metric 
     300      USE icosa 
    312301      IMPLICIT NONE 
    313302!c 
Note: See TracChangeset for help on using the changeset viewer.