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/etat0_williamson.f90

    r12 r19  
    11MODULE etat0_williamson_mod 
    2   USE genmod 
     2  USE icosa 
    33  PRIVATE 
    44    REAL(rstd), PARAMETER :: h0=8.E3 
    … …  
    1212   
    1313  SUBROUTINE etat0_williamson(f_h,f_u) 
    14   USE field_mod 
    15   USE domain_mod 
    16   USE domain_mod 
    17   USE dimensions 
    18   USE grid_param 
    19   USE geometry 
     14  USE icosa 
    2015  IMPLICIT NONE 
    2116    TYPE(t_field),POINTER :: f_h(:) 
    … …  
    3732   
    3833  SUBROUTINE compute_etat0_williamson(hi, ue) 
    39   USE domain_mod 
    40   USE dimensions 
    41   USE grid_param 
    42   USE geometry 
    43   USE metric 
    44   USE spherical_geom_mod 
    45   USE vector 
    46   USE earth_const 
     34  USE icosa 
    4735  IMPLICIT NONE   
    4836    REAL(rstd),INTENT(OUT) :: hi(iim*jjm) 
Note: See TracChangeset for help on using the changeset viewer.