source: codes/icosagcm/trunk/src/disvert.f90 @ 17

Last change on this file since 17 was 17, checked in by ymipsl, 12 years ago

Merge advection scheme from sarvesh in standard version

YM
File size: 1.0 KB
Line 
1MODULE disvert_mod
2  USE prec
3  REAL(rstd), SAVE, POINTER :: ap(:)
4  REAL(rstd), SAVE, POINTER :: bp(:)
5  REAL(rstd), SAVE, POINTER :: presnivs(:)
6
7CONTAINS
8
9  SUBROUTINE init_disvert
10  USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert
11  USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert
12  USE ioipsl
13  IMPLICIT NONE
14    CHARACTER(LEN=255) :: disvert_type = 'std'
15   
16    CALL getin("disvert",disvert_type)
17   
18    SELECT CASE (TRIM(disvert_type))
19      CASE('std')
20   
21        CALL init_disvert_std
22        ap=>ap_std
23        bp=>bp_std
24        presnivs=>presnivs_std
25     
26      CASE ('ncar')
27
28        CALL init_disvert_ncar
29        ap=>ap_ncar
30        bp=>bp_ncar
31        presnivs=>presnivs_ncar
32       
33      CASE default
34        PRINT*,'Bad selector for variable disvert : <', TRIM(disvert_type),"> options are <std>, <ncar>" 
35        STOP
36       
37    END SELECT
38
39  END SUBROUTINE init_disvert 
40 
41END MODULE disvert_mod
Note: See TracBrowser for help on using the repository browser.