70 |
CADJ STORE vstress1 = tapelev2, key = ilev_2 |
CADJ STORE vstress1 = tapelev2, key = ilev_2 |
71 |
# endif /* ALLOW_ATM_WIND */ |
# endif /* ALLOW_ATM_WIND */ |
72 |
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
73 |
|
|
74 |
|
#ifdef ALLOW_OBCS |
75 |
|
#ifdef ALLOW_OBCS_NORTH |
76 |
|
CADJ STORE OBNu = tapelev2, key = ilev_2 |
77 |
|
CADJ STORE OBNv = tapelev2, key = ilev_2 |
78 |
|
CADJ STORE OBNt = tapelev2, key = ilev_2 |
79 |
|
CADJ STORE OBNs = tapelev2, key = ilev_2 |
80 |
|
#endif /* ALLOW_OBCS_NORTH */ |
81 |
|
#ifdef ALLOW_OBCS_SOUTH |
82 |
|
CADJ STORE OBSu = tapelev2, key = ilev_2 |
83 |
|
CADJ STORE OBSv = tapelev2, key = ilev_2 |
84 |
|
CADJ STORE OBSt = tapelev2, key = ilev_2 |
85 |
|
CADJ STORE OBSs = tapelev2, key = ilev_2 |
86 |
|
#endif /* ALLOW_OBCS_SOUTH */ |
87 |
|
#ifdef ALLOW_OBCS_EAST |
88 |
|
CADJ STORE OBEu = tapelev2, key = ilev_2 |
89 |
|
CADJ STORE OBEv = tapelev2, key = ilev_2 |
90 |
|
CADJ STORE OBEt = tapelev2, key = ilev_2 |
91 |
|
CADJ STORE OBEs = tapelev2, key = ilev_2 |
92 |
|
#endif /* ALLOW_OBCS_EAST */ |
93 |
|
#ifdef ALLOW_OBCS_WEST |
94 |
|
CADJ STORE OBWu = tapelev2, key = ilev_2 |
95 |
|
CADJ STORE OBWv = tapelev2, key = ilev_2 |
96 |
|
CADJ STORE OBWt = tapelev2, key = ilev_2 |
97 |
|
CADJ STORE OBWs = tapelev2, key = ilev_2 |
98 |
|
#endif /* ALLOW_OBCS_WEST */ |
99 |
|
#endif /* ALLOW_OBCS */ |
100 |
|
|