forked from adfriend45/RINGS_v3
-
Notifications
You must be signed in to change notification settings - Fork 0
/
VARIABLES.f90
23 lines (23 loc) · 1.26 KB
/
VARIABLES.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
!======================================================================!
MODULE VARIABLES
!----------------------------------------------------------------------!
USE DOUBLE
USE CONTROL
!----------------------------------------------------------------------!
IMPLICIT NONE
!----------------------------------------------------------------------!
! Wall mass growth with unlimiting carbohydrates (mg cell-1 day-1).
!----------------------------------------------------------------------!
REAL(DP), DIMENSION (nfi, ncells_max) :: dM_max
!----------------------------------------------------------------------!
! Wall mass growth (mg cell-1 day-1).
!----------------------------------------------------------------------!
REAL(DP), DIMENSION (nfi, ncells_max) :: dM
!----------------------------------------------------------------------!
REAL(DP) :: Sp ! Phloem carbohydrate concentration (mg ml-1)
REAL(DP) :: SG ! Cell lumen carbohydrate concentration to test (mg ml-1)
REAL(DP) :: zbrent_out ! Carbohydrate concentration solution (mg ml-1)
REAL(DP) :: FS ! Error on solution using SG (mg ml-1)
!----------------------------------------------------------------------!
END MODULE VARIABLES
!======================================================================!