|
24 | 24 | !#define UM_BUILD yes
|
25 | 25 | MODULE cable_def_types_mod
|
26 | 26 |
|
| 27 | +USE cable_climate_type_mod, ONLY: climate_type |
| 28 | + |
27 | 29 | ! Contains all variables which are not subroutine-internal
|
28 | 30 |
|
29 | 31 | IMPLICIT NONE
|
@@ -668,55 +670,6 @@ MODULE cable_def_types_mod
|
668 | 670 |
|
669 | 671 | ! .............................................................................
|
670 | 672 |
|
671 |
| - ! Climate data: |
672 |
| - TYPE climate_type |
673 |
| - |
674 |
| - INTEGER :: nyear_average = 20 |
675 |
| - INTEGER :: nday_average = 31 |
676 |
| - ! INTEGER, POINTER :: & |
677 |
| - INTEGER :: & |
678 |
| - nyears, & ! number of years in climate record |
679 |
| - doy ! day of year |
680 |
| - |
681 |
| - INTEGER, DIMENSION(:), POINTER :: & |
682 |
| - chilldays, & ! length of chilling period (period with T<5deg) |
683 |
| - iveg, & ! potential vegetation type based on climatic constraints |
684 |
| - biome |
685 |
| - |
686 |
| - REAL, DIMENSION(:), POINTER :: & |
687 |
| - dtemp, & ! daily temperature |
688 |
| - dmoist, & ! daily moisture availability |
689 |
| - mtemp, & ! mean temperature over the last 31 days |
690 |
| - qtemp, & ! mean temperature over the last 91 days |
691 |
| - mmoist, & ! monthly moisture availability |
692 |
| - mtemp_min, & ! minimum monthly temperature |
693 |
| - mtemp_max, & ! maximum monhtly temperature |
694 |
| - qtemp_max, & ! mean temperature of the warmest quarter (so far this year) |
695 |
| - qtemp_max_last_year, & ! mean temperature of the warmest quarter (last calendar year) |
696 |
| - mtemp_min20, & ! minimum monthly temperature, averaged over 20 y |
697 |
| - mtemp_max20, & ! maximum monhtly temperature, averaged over 20 y |
698 |
| - atemp_mean, & ! annual average temperature |
699 |
| - AGDD5, & |
700 |
| - GDD5, & ! growing degree day sum relative to 5deg base temperature |
701 |
| - AGDD0, & ! |
702 |
| - GDD0, & ! growing degree day sum relative to 0deg base temperature |
703 |
| - alpha_PT, & ! ratio of annual evap to annual PT evap |
704 |
| - evap_PT, & ! annual PT evap [mm] |
705 |
| - aevap , & ! annual evap [mm] |
706 |
| - alpha_PT20 |
707 |
| - |
708 |
| - REAL, DIMENSION(:,:), POINTER :: & |
709 |
| - mtemp_min_20, & ! mimimum monthly temperatures for the last 20 y |
710 |
| - mtemp_max_20, & ! maximum monthly temperatures for the last 20 y |
711 |
| - dtemp_31 , & ! daily temperature for the last 31 days |
712 |
| - dmoist_31 , & ! daily moisture availability for the last 31 days |
713 |
| - alpha_PT_20, & ! priestley Taylor Coefft for last 20 y |
714 |
| - dtemp_91 ! daily temperature for the last 91 days |
715 |
| - |
716 |
| - END TYPE climate_type |
717 |
| - |
718 |
| - ! ............................................................................. |
719 |
| - |
720 | 673 | ! Cumulative flux variables:
|
721 | 674 | TYPE sum_flux_type
|
722 | 675 |
|
|
0 commit comments