Line |
Branch |
Exec |
Source |
1 |
|
|
MODULE readaerosolstrato_m |
2 |
|
|
|
3 |
|
|
|
4 |
|
|
CONTAINS |
5 |
|
|
|
6 |
|
1 |
SUBROUTINE init_readaerosolstrato(flag_aerosol_strat) |
7 |
|
|
USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured |
8 |
|
|
IMPLICIT NONE |
9 |
|
|
INTEGER,INTENT(IN) :: flag_aerosol_strat |
10 |
|
|
|
11 |
|
|
IF (grid_type==unstructured) THEN |
12 |
|
|
|
13 |
|
|
IF (flag_aerosol_strat == 1) THEN |
14 |
|
|
CALL init_readaerosolstrato1 |
15 |
|
|
ELSE IF (flag_aerosol_strat == 2) THEN |
16 |
|
|
CALL init_readaerosolstrato2 |
17 |
|
|
ENDIF |
18 |
|
|
|
19 |
|
|
ENDIF |
20 |
|
|
|
21 |
|
1 |
END SUBROUTINE init_readaerosolstrato |
22 |
|
|
|
23 |
|
|
|
24 |
|
|
|
25 |
|
✗ |
SUBROUTINE init_readaerosolstrato1 |
26 |
|
✗ |
END SUBROUTINE init_readaerosolstrato1 |
27 |
|
|
|
28 |
|
✗ |
SUBROUTINE init_readaerosolstrato2 |
29 |
|
✗ |
END SUBROUTINE init_readaerosolstrato2 |
30 |
|
|
|
31 |
|
|
|
32 |
|
|
END MODULE readaerosolstrato_m |
33 |
|
|
|
34 |
|
|
|