4 |
C-- These common blocks are extracted from the |
C-- These common blocks are extracted from the |
5 |
C-- automatically created tangent linear code. |
C-- automatically created tangent linear code. |
6 |
C-- You need to make sure that they are up-to-date |
C-- You need to make sure that they are up-to-date |
7 |
C-- (i.e. in right order), and customize them |
C-- (i.e. in right order), and customize them accordingly. |
|
C-- accordingly. |
|
8 |
C-- |
C-- |
9 |
C-- heimbach@mit.edu 11-Jan-2001 |
C-- heimbach@mit.edu 11-Jan-2001 |
10 |
|
|
11 |
#ifdef ALLOW_AUTODIFF_MONITOR |
#ifdef ALLOW_AUTODIFF_MONITOR |
12 |
|
|
|
#include "PACKAGES_CONFIG.h" |
|
|
|
|
|
#ifdef ALLOW_EXF |
|
|
# include "EXF_OPTIONS.h" |
|
|
#endif |
|
|
c#ifdef ALLOW_SEAICE |
|
|
c# include "SEAICE_OPTIONS.h" |
|
|
c#endif |
|
|
|
|
13 |
common /addynvars_r/ |
common /addynvars_r/ |
14 |
& adetan, |
& adetan, |
15 |
& aduvel, advvel, adwvel, |
& aduvel, advvel, adwvel, |
150 |
common /adexf_swflux_r/ adswflux |
common /adexf_swflux_r/ adswflux |
151 |
# endif |
# endif |
152 |
# endif |
# endif |
153 |
# ifdef ALLOW_ATM_WIND |
|
154 |
_RL aduwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL aduwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
155 |
_RL advwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL advwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
156 |
common /adexf_atm_wind_r/ aduwind, advwind |
common /adexf_atm_wind_r/ aduwind, advwind |
157 |
# endif |
|
158 |
# ifdef ALLOW_DOWNWARD_RADIATION |
# ifdef ALLOW_DOWNWARD_RADIATION |
159 |
_RL adswdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adswdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
160 |
_RL adlwdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL adlwdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |