3 |
|
|
4 |
C-- COMMON /DIC_LOAD/ |
C-- COMMON /DIC_LOAD/ |
5 |
C DIC_ldRec :: time-record currently loaded (in temp arrays *[1]) |
C DIC_ldRec :: time-record currently loaded (in temp arrays *[1]) |
6 |
|
C chlinput :: chlorophyll climatology input field [mg/m3] |
7 |
|
|
8 |
COMMON /DIC_LOAD_I/ DIC_ldRec |
COMMON /DIC_LOAD_I/ DIC_ldRec |
9 |
COMMON /DIC_LOAD_RS/ |
COMMON /DIC_LOAD_RS/ |
15 |
#ifdef ALLOW_FE |
#ifdef ALLOW_FE |
16 |
& ,feinput0,feinput1 |
& ,feinput0,feinput1 |
17 |
#endif |
#endif |
18 |
|
#ifdef LIGHT_CHL |
19 |
|
& ,chlinput |
20 |
|
#endif |
21 |
|
|
22 |
INTEGER DIC_ldRec(nSx,nSy) |
INTEGER DIC_ldRec(nSx,nSy) |
23 |
_RS dicwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dicwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
36 |
_RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
_RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
38 |
#endif |
#endif |
39 |
|
#ifdef LIGHT_CHL |
40 |
|
_RS chlinput (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
41 |
|
#endif |
42 |
|
|
43 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
44 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |