Ignore:
Timestamp:
11/21/17 15:09:25 (6 years ago)
Author:
dubos
Message:

devel : backported commits 606 and 607 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/vertical/disvert.f90

    r531 r609  
    2323  SUBROUTINE init_disvert 
    2424  USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert 
    25   USE disvert_strato_mod, ONLY: ap_strato=>ap, bp_strato=>bp, presnivs_strato=>presnivs, init_disvert_strato=>init_disvert 
     25  USE disvert_strato_mod, ONLY: ap_strato=>ap, bp_strato=>bp, presnivs_strato=>presnivs, init_disvert_strato=>init_disvert, init_disvert_strato_custom 
    2626  USE disvert_apbp_mod, ONLY: ap_apbp=>ap, bp_apbp=>bp, presnivs_apbp=>presnivs, init_disvert_apbp=>init_disvert 
    2727  USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert 
    … …  
    6969         
    7070        CALL init_disvert_strato 
     71        ap=>ap_strato 
     72        bp=>bp_strato 
     73        presnivs=>presnivs_strato 
     74 
     75      CASE('strato_custom') 
     76         
     77        CALL init_disvert_strato_custom 
    7178        ap=>ap_strato 
    7279        bp=>bp_strato 
Note: See TracChangeset for help on using the changeset viewer.