| 1 | MODULE final_grid_lmdz |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | SAVE |
|---|
| 4 | |
|---|
| 5 | INTEGER :: klon |
|---|
| 6 | INTEGER :: latu_len, lonu_len, latv_len, lonv_len |
|---|
| 7 | REAL, ALLOCATABLE, DIMENSION(:) :: latu |
|---|
| 8 | REAL, ALLOCATABLE, DIMENSION(:) :: lonu |
|---|
| 9 | REAL, ALLOCATABLE, DIMENSION(:) :: latv |
|---|
| 10 | REAL, ALLOCATABLE, DIMENSION(:) :: lonv |
|---|
| 11 | |
|---|
| 12 | INTEGER :: nlat_len, nlon_len, nlat_edge_len, nlon_edge_len, nlev_len,ntype_len |
|---|
| 13 | REAL, ALLOCATABLE, DIMENSION(:) :: nlatbis |
|---|
| 14 | REAL, ALLOCATABLE, DIMENSION(:) :: nlat |
|---|
| 15 | REAL, ALLOCATABLE, DIMENSION(:) :: nlon |
|---|
| 16 | REAL, ALLOCATABLE, DIMENSION(:) :: nlev |
|---|
| 17 | REAL, allocatable, DIMENSION(:) :: ntype |
|---|
| 18 | REAL, ALLOCATABLE, DIMENSION(:) :: nlat_edge |
|---|
| 19 | REAL, ALLOCATABLE, DIMENSION(:) :: nlon_edge |
|---|
| 20 | |
|---|
| 21 | REAL, ALLOCATABLE, DIMENSION(:,:) :: area_out |
|---|
| 22 | REAL, ALLOCATABLE, DIMENSION(:,:) :: lsmask |
|---|
| 23 | |
|---|
| 24 | END MODULE final_grid_lmdz |
|---|
| 25 | |
|---|
| 26 | MODULE grid |
|---|
| 27 | IMPLICIT NONE |
|---|
| 28 | SAVE |
|---|
| 29 | |
|---|
| 30 | INTEGER :: klon_init |
|---|
| 31 | INTEGER :: lat_len, lon_len, lat_edge_len, lon_edge_len |
|---|
| 32 | INTEGER :: lev_len, lev_edge_len, type_len |
|---|
| 33 | REAL, ALLOCATABLE, DIMENSION(:) :: latbis |
|---|
| 34 | REAL, ALLOCATABLE, DIMENSION(:) :: lat |
|---|
| 35 | REAL, ALLOCATABLE, DIMENSION(:) :: lon |
|---|
| 36 | REAL, ALLOCATABLE, DIMENSION(:) :: lev |
|---|
| 37 | REAL, ALLOCATABLE, DIMENSION(:) :: lat_edge |
|---|
| 38 | REAL, ALLOCATABLE, DIMENSION(:) :: lon_edge |
|---|
| 39 | REAL, ALLOCATABLE, DIMENSION(:) :: lev_edge |
|---|
| 40 | REAL, ALLOCATABLE, DIMENSION(:,:) :: area_in |
|---|
| 41 | |
|---|
| 42 | INTEGER :: nrecs |
|---|
| 43 | INTEGER :: types |
|---|
| 44 | |
|---|
| 45 | END MODULE grid |
|---|
| 46 | |
|---|
| 47 | MODULE correspondance |
|---|
| 48 | IMPLICIT NONE |
|---|
| 49 | SAVE |
|---|
| 50 | |
|---|
| 51 | !Derived type for correspondance array |
|---|
| 52 | TYPE corr_type |
|---|
| 53 | INTEGER :: olat !old latitude index |
|---|
| 54 | INTEGER :: olon !old longitude index |
|---|
| 55 | INTEGER :: nlat !new latitude index |
|---|
| 56 | INTEGER :: nlon !new longitude index |
|---|
| 57 | REAL :: wght !weighting function |
|---|
| 58 | END TYPE corr_type |
|---|
| 59 | |
|---|
| 60 | INTEGER count |
|---|
| 61 | TYPE (corr_type), ALLOCATABLE, DIMENSION(:) :: corr |
|---|
| 62 | |
|---|
| 63 | END MODULE correspondance |
|---|
| 64 | |
|---|
| 65 | MODULE sflx |
|---|
| 66 | IMPLICIT NONE |
|---|
| 67 | SAVE |
|---|
| 68 | |
|---|
| 69 | |
|---|
| 70 | REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn |
|---|
| 71 | REAL, ALLOCATABLE, DIMENSION(:,:) :: var_dyn_1lev |
|---|
| 72 | REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn_new |
|---|
| 73 | REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn_new_bis |
|---|
| 74 | REAL, ALLOCATABLE, DIMENSION(:,:) :: var_dyn_new_1lev |
|---|
| 75 | |
|---|
| 76 | |
|---|
| 77 | REAL, ALLOCATABLE, DIMENSION(:,:,:) :: so4_phy,so4_phy_new |
|---|
| 78 | REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: so4_dyn,so4_dyn_new,so4_dyn_new_bis |
|---|
| 79 | REAL, ALLOCATABLE, DIMENSION(:,:) :: so4_phy_1lev,so4_phy_new_1lev |
|---|
| 80 | REAL, ALLOCATABLE, DIMENSION(:,:,:) :: so4_dyn_1lev,so4_dyn_new_1lev |
|---|
| 81 | |
|---|
| 82 | |
|---|
| 83 | REAL, allocatable, DIMENSION(:,:) :: landuse_phy, landuse_phy_new |
|---|
| 84 | REAL, allocatable, DIMENSION(:,:,:) :: landuse_dyn, landuse_dyn_new |
|---|
| 85 | |
|---|
| 86 | REAL, allocatable, DIMENSION(:,:) :: npp_phy, npp_phy_new |
|---|
| 87 | REAL, allocatable, DIMENSION(:,:,:) :: npp_dyn, npp_dyn_new |
|---|
| 88 | |
|---|
| 89 | |
|---|
| 90 | CHARACTER*8, DIMENSION(119) :: trac_name |
|---|
| 91 | INTEGER, DIMENSION(119) :: var_id |
|---|
| 92 | |
|---|
| 93 | |
|---|
| 94 | ! ... Variable ids |
|---|
| 95 | INTEGER :: lon_id |
|---|
| 96 | INTEGER :: lat_id |
|---|
| 97 | INTEGER :: lev_id |
|---|
| 98 | INTEGER :: lat_edge_id |
|---|
| 99 | INTEGER :: lon_edge_id |
|---|
| 100 | INTEGER :: time_id |
|---|
| 101 | |
|---|
| 102 | |
|---|
| 103 | END MODULE sflx |
|---|
