Ignore:
Timestamp:
08/09/12 18:55:37 (12 years ago)
Author:
ymipsl
Message:

Implement dcmip31 vertcal discretisation

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r112 r115  
    1111  USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert 
    1212  USE disvert_ncarl30_mod, ONLY: ap_ncarl30=>ap, bp_ncarl30=>bp, presnivs_ncarl30=>presnivs, init_disvert_ncarl30=>init_disvert 
     13  USE disvert_dcmip31_mod, ONLY: ap_dcmip31=>ap, bp_dcmip31=>bp, presnivs_dcmip31=>presnivs, init_disvert_dcmip31=>init_disvert 
    1314  USE icosa 
    1415  IMPLICIT NONE 
    … …  
    3132        bp=>bp_ncar 
    3233        presnivs=>presnivs_ncar 
     34 
     35      CASE ('dcmip31') 
     36 
     37        CALL init_disvert_dcmip31 
     38        ap=>ap_dcmip31 
     39        bp=>bp_dcmip31 
     40        presnivs=>presnivs_dcmip31 
    3341 
    3442      CASE ('ncarl30') 
Note: See TracChangeset for help on using the changeset viewer.