69 |
CADJ STORE vstress0 = tapelev2, key = ilev_2 |
CADJ STORE vstress0 = tapelev2, key = ilev_2 |
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 |
|
|
73 |
|
#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */ |
74 |
|
|
75 |
|
CADJ STORE taux0 = tapelev2, key = ilev_2 |
76 |
|
CADJ STORE taux1 = tapelev2, key = ilev_2 |
77 |
|
CADJ STORE tauy0 = tapelev2, key = ilev_2 |
78 |
|
CADJ STORE tauy1 = tapelev2, key = ilev_2 |
79 |
|
CADJ STORE Qnet0 = tapelev2, key = ilev_2 |
80 |
|
CADJ STORE Qnet1 = tapelev2, key = ilev_2 |
81 |
|
CADJ STORE EmPmR0 = tapelev2, key = ilev_2 |
82 |
|
CADJ STORE EmPmR1 = tapelev2, key = ilev_2 |
83 |
|
CADJ STORE SST0 = tapelev2, key = ilev_2 |
84 |
|
CADJ STORE SST1 = tapelev2, key = ilev_2 |
85 |
|
CADJ STORE SSS0 = tapelev2, key = ilev_2 |
86 |
|
CADJ STORE SSS1 = tapelev2, key = ilev_2 |
87 |
|
CADJ STORE Qsw0 = tapelev2, key = ilev_2 |
88 |
|
CADJ STORE Qsw1 = tapelev2, key = ilev_2 |
89 |
|
|
90 |
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
91 |
|
|
92 |
|
#ifdef ALLOW_OBCS |
93 |
|
#ifdef ALLOW_OBCS_NORTH |
94 |
|
CADJ STORE OBNu = tapelev2, key = ilev_2 |
95 |
|
CADJ STORE OBNv = tapelev2, key = ilev_2 |
96 |
|
CADJ STORE OBNt = tapelev2, key = ilev_2 |
97 |
|
CADJ STORE OBNs = tapelev2, key = ilev_2 |
98 |
|
#endif /* ALLOW_OBCS_NORTH */ |
99 |
|
#ifdef ALLOW_OBCS_SOUTH |
100 |
|
CADJ STORE OBSu = tapelev2, key = ilev_2 |
101 |
|
CADJ STORE OBSv = tapelev2, key = ilev_2 |
102 |
|
CADJ STORE OBSt = tapelev2, key = ilev_2 |
103 |
|
CADJ STORE OBSs = tapelev2, key = ilev_2 |
104 |
|
#endif /* ALLOW_OBCS_SOUTH */ |
105 |
|
#ifdef ALLOW_OBCS_EAST |
106 |
|
CADJ STORE OBEu = tapelev2, key = ilev_2 |
107 |
|
CADJ STORE OBEv = tapelev2, key = ilev_2 |
108 |
|
CADJ STORE OBEt = tapelev2, key = ilev_2 |
109 |
|
CADJ STORE OBEs = tapelev2, key = ilev_2 |
110 |
|
#endif /* ALLOW_OBCS_EAST */ |
111 |
|
#ifdef ALLOW_OBCS_WEST |
112 |
|
CADJ STORE OBWu = tapelev2, key = ilev_2 |
113 |
|
CADJ STORE OBWv = tapelev2, key = ilev_2 |
114 |
|
CADJ STORE OBWt = tapelev2, key = ilev_2 |
115 |
|
CADJ STORE OBWs = tapelev2, key = ilev_2 |
116 |
|
#endif /* ALLOW_OBCS_WEST */ |
117 |
|
#endif /* ALLOW_OBCS */ |
118 |
|
|