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
RevLine 
[12]1MODULE disvert_mod
2  USE prec
[17]3  REAL(rstd), SAVE, POINTER :: ap(:)
4  REAL(rstd), SAVE, POINTER :: bp(:)
5  REAL(rstd), SAVE, POINTER :: presnivs(:)
[12]6
7CONTAINS
8
9  SUBROUTINE init_disvert
[17]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
[12]13  IMPLICIT NONE
[17]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')
[12]27
[17]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
[12]38
39  END SUBROUTINE init_disvert 
40 
41END MODULE disvert_mod
Note: See TracBrowser for help on using the repository browser.