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

    r17 r19  
    11MODULE disvert_mod 
    2   USE prec 
     2  USE icosa 
    33  REAL(rstd), SAVE, POINTER :: ap(:) 
    44  REAL(rstd), SAVE, POINTER :: bp(:) 
    … …  
    1010  USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert 
    1111  USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert 
    12   USE ioipsl 
     12  USE icosa 
    1313  IMPLICIT NONE 
    1414    CHARACTER(LEN=255) :: disvert_type = 'std' 
Note: See TracChangeset for help on using the changeset viewer.