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

    r17 r19  
    11  MODULE disvert_ncar_mod 
    2   USE prec 
     2  USE icosa 
    33  
    44  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:) 
    … …  
    1010 
    1111  SUBROUTINE init_disvert 
    12   USE grid_param 
    13   USE ioipsl 
     12  USE icosa 
    1413  IMPLICIT NONE 
    1514   
    … …  
    2423 
    2524  SUBROUTINE disvert(ap,bp,presnivs) 
    26   USE earth_const 
    27   USE math_const  
    28   USE grid_param 
     25  USE icosa 
    2926  IMPLICIT NONE 
    3027  REAL(rstd),INTENT(OUT) :: ap(:) 
Note: See TracChangeset for help on using the changeset viewer.