GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: phy_common/vertical_layers_mod.F90 Lines: 19 19 100.0 %
Date: 2023-06-30 12:56:34 Branches: 43 72 59.7 %

Line Branch Exec Source 
1
 

    
! $Id: $

    


    

    
2

    
    

    

    


    

    
3

    
    

    
MODULE vertical_layers_mod

    


    

    
4

    
    

    

    


    

    
5

    
    

    
   REAL,SAVE             :: preff  ! reference surface pressure (Pa)

    


    

    
6

    
    

    
   REAL,SAVE             :: scaleheight ! atmospheric reference scale height (km)

    


    

    
7

    
    

    
   REAL,SAVE,ALLOCATABLE :: ap(:) ! hybrid (pressure contribution) coordinate

    


    

    
8

    
    

    
                                  ! at layer interfaces (Pa)

    


    

    
9

    
    

    
   REAL,SAVE,ALLOCATABLE :: bp(:) ! hybrid (sigma contribution) coordinate

    


    

    
10

    
    

    
                                  ! at layer interfaces (Pa)

    


    

    
11

    
    

    
   REAL,SAVE,ALLOCATABLE :: aps(:) ! hybrid (pressure contribution) coordinate

    


    

    
12

    
    

    
                                   ! at mid-layer (Pa)

    


    

    
13

    
    

    
   REAL,SAVE,ALLOCATABLE :: bps(:) ! hybrid (sigma contribution) coordinate

    


    

    
14

    
    

    
                                   ! at mid-layer

    


    

    
15

    
    

    
   REAL,SAVE,ALLOCATABLE :: presnivs(:) ! reference pressure at mid-layer (Pa),

    


    

    
16

    
    

    
                                        ! based on preff, ap and bp

    


    

    
17

    
    

    
   REAL,SAVE,ALLOCATABLE :: presinter(:) ! reference pressure at interface (Pa),

    


    

    
18

    
    

    
                                        ! based on preff, ap and bp

    


    

    
19

    
    

    
   REAL,SAVE,ALLOCATABLE :: pseudoalt(:) ! pseudo-altitude of model layers (km),

    


    

    
20

    
    

    
                                         ! based on preff and scaleheight

    


    

    
21

    
    

    

    


    

    
22

    
    

    
!$OMP THREADPRIVATE(preff,scaleheight,ap,bp,aps,bps,presnivs,presinter,pseudoalt)

    


    

    
23

    
    

    

    


    

    
24

    
    

    

    


    

    
25

    
    

    
CONTAINS

    


    

    
26

    
    

    

    


    

    
27

    
    
1

    
  SUBROUTINE init_vertical_layers(nlayer,preff_,scaleheight_,ap_,bp_,&

    


    

    
28

    
    
1

    
                                 aps_,bps_,presnivs_, presinter_, pseudoalt_)

    


    

    
29

    
    

    
    IMPLICIT NONE

    


    

    
30

    
    

    
    INTEGER,INTENT(IN) :: nlayer ! number of atmospheric layers

    


    

    
31

    
    

    
    REAL,INTENT(IN)    :: preff_ ! reference surface pressure (Pa)

    


    

    
32

    
    

    
    REAL,INTENT(IN)    :: scaleheight_ ! atmospheric scale height (km)

    


    

    
33

    
    

    
    REAL,INTENT(IN)    :: ap_(nlayer+1) ! hybrid coordinate at interfaces

    


    

    
34

    
    

    
    REAL,INTENT(IN)    :: bp_(nlayer+1) ! hybrid coordinate at interfaces

    


    

    
35

    
    

    
    REAL,INTENT(IN)    :: aps_(nlayer) ! hybrid coordinate at mid-layer

    


    

    
36

    
    

    
    REAL,INTENT(IN)    :: bps_(nlayer) ! hybrid coordinate at mid-layer

    


    

    
37

    
    

    
    REAL,INTENT(IN)    :: presnivs_(nlayer) ! Appproximative pressure of atm. layers (Pa)

    


    

    
38

    
    

    
    REAL,INTENT(IN)    :: presinter_(nlayer+1) ! Appproximative pressure of atm. layers (Pa)

    


    

    
39

    
    

    
    REAL,INTENT(IN)    :: pseudoalt_(nlayer) ! pseudo-altitude of atm. layers (km)

    


    

    
40

    
    

    

    


    

    
41

    ✓✗✓✗
✓✗✓✗
✓✗✗✓
✗✓✗✓

    
4

    
    ALLOCATE(ap(nlayer+1))

    


    

    
42

    ✓✗✓✗
✓✗✗✓
✗✓✗✓

    
3

    
    ALLOCATE(bp(nlayer+1))

    


    

    
43

    ✓✗✗✓
✗✓		
    
1

    
    ALLOCATE(aps(nlayer))

    


    

    
44

    ✗✓✗✓

    
1

    
    ALLOCATE(bps(nlayer))

    


    

    
45

    ✗✓✗✓

    
1

    
    ALLOCATE(presnivs(nlayer))

    


    

    
46

    ✓✗✓✗
✓✗✗✓
✗✓✗✓

    
3

    
    ALLOCATE(presinter(nlayer+1))

    


    

    
47

    ✗✓✗✓

    
1

    
    ALLOCATE(pseudoalt(nlayer))

    


    

    
48

    
    

    

    


    

    
49

    
    
1

    
    preff = preff_

    


    

    
50

    
    
1

    
    scaleheight=scaleheight_

    


    

    
51

    ✓✓
    
41

    
    ap(:) = ap_(:)

    


    

    
52

    ✓✓
    
41

    
    bp(:) = bp_(:)

    


    

    
53

    ✓✓
    
40

    
    aps(:) = aps_(:)

    


    

    
54

    ✓✓
    
40

    
    bps(:) = bps_(:)

    


    

    
55

    ✓✓
    
40

    
    presnivs(:) = presnivs_(:)

    


    

    
56

    ✓✓
    
41

    
    presinter(:) = presinter_(:)

    


    

    
57

    ✓✓
    
40

    
    pseudoalt(:) = pseudoalt_(:)

    


    

    
58

    
    

    

    


    

    
59

    
    
1

    
  END SUBROUTINE init_vertical_layers

    


    

    
60

    
    

    

    


    

    
61

    
    

    
END MODULE vertical_layers_mod

    


  

  


  

    

    
Generated by: GCOVR (Version 4.2)