pkg/obcs/obcs_ad_check_lev4_dir.h

0785f33837 Patr*0001 #
3c775cbf98 Mart*0002 # ifdef AUTODIFF_USE_STORE_RESTORE_OBCS
                0003 #  ifdef ALLOW_OBCS_NORTH
5728d4a98b Patr*0004 CADJ STORE StoreOBCSN     = tapelev4, key = ilev_4
3c775cbf98 Mart*0005 #  endif
                0006 #  ifdef ALLOW_OBCS_SOUTH
                0007 CADJ STORE StoreOBCSS     = tapelev4, key = ilev_4
                0008 #  endif
                0009 #  ifdef ALLOW_OBCS_EAST
                0010 CADJ STORE StoreOBCSE     = tapelev4, key = ilev_4
                0011 #  endif
                0012 #  ifdef ALLOW_OBCS_WEST
                0013 CADJ STORE StoreOBCSW     = tapelev4, key = ilev_4
                0014 #  endif
                0015 # else
                0016 #  ifdef ALLOW_OBCS_NORTH
                0017 CADJ STORE OBNu           = tapelev4, key = ilev_4
                0018 CADJ STORE OBNv           = tapelev4, key = ilev_4
                0019 CADJ STORE OBNt           = tapelev4, key = ilev_4
                0020 CADJ STORE OBNs           = tapelev4, key = ilev_4
                0021 #   ifdef ALLOW_OBCS_PRESCRIBE
                0022 CADJ STORE OBNu0, OBNu1   = tapelev4, key = ilev_4
                0023 CADJ STORE OBNv0, OBNv1   = tapelev4, key = ilev_4
                0024 CADJ STORE OBNt0, OBNt1   = tapelev4, key = ilev_4
                0025 CADJ STORE OBNs0, OBNs1   = tapelev4, key = ilev_4
                0026 #   endif
                0027 #   ifdef ALLOW_OBCSN_CONTROL
                0028 CADJ STORE xx_obcsn0      = tapelev4, key = ilev_4
                0029 CADJ STORE xx_obcsn1      = tapelev4, key = ilev_4
                0030 #   endif
                0031 #  endif /* ALLOW_OBCS_NORTH */
                0032 #
                0033 #  ifdef ALLOW_OBCS_SOUTH
                0034 CADJ STORE OBSu           = tapelev4, key = ilev_4
                0035 CADJ STORE OBSv           = tapelev4, key = ilev_4
                0036 CADJ STORE OBSt           = tapelev4, key = ilev_4
                0037 CADJ STORE OBSs           = tapelev4, key = ilev_4
                0038 #   ifdef ALLOW_OBCS_PRESCRIBE
                0039 CADJ STORE OBSu0, OBSu1   = tapelev4, key = ilev_4
                0040 CADJ STORE OBSv0, OBSv1   = tapelev4, key = ilev_4
                0041 CADJ STORE OBSt0, OBSt1   = tapelev4, key = ilev_4
                0042 CADJ STORE OBSs0, OBSs1   = tapelev4, key = ilev_4
                0043 #   endif
                0044 #   ifdef ALLOW_OBCSS_CONTROL
                0045 CADJ STORE xx_obcss0      = tapelev4, key = ilev_4
                0046 CADJ STORE xx_obcss1      = tapelev4, key = ilev_4
                0047 #   endif
                0048 #  endif /* ALLOW_OBCS_SOUTH */
                0049 #
                0050 #  ifdef ALLOW_OBCS_EAST
                0051 CADJ STORE OBEu           = tapelev4, key = ilev_4
                0052 CADJ STORE OBEv           = tapelev4, key = ilev_4
                0053 CADJ STORE OBEt           = tapelev4, key = ilev_4
                0054 CADJ STORE OBEs           = tapelev4, key = ilev_4
                0055 #   ifdef ALLOW_OBCS_PRESCRIBE
                0056 CADJ STORE OBEu0, OBEu1   = tapelev4, key = ilev_4
                0057 CADJ STORE OBEv0, OBEv1   = tapelev4, key = ilev_4
                0058 CADJ STORE OBEt0, OBEt1   = tapelev4, key = ilev_4
                0059 CADJ STORE OBEs0, OBEs1   = tapelev4, key = ilev_4
                0060 #   endif
                0061 #   ifdef ALLOW_OBCSE_CONTROL
                0062 CADJ STORE xx_obcse0      = tapelev4, key = ilev_4
                0063 CADJ STORE xx_obcse1      = tapelev4, key = ilev_4
                0064 #   endif
                0065 #  endif /* ALLOW_OBCS_EAST */
                0066 #
                0067 #  ifdef ALLOW_OBCS_WEST
                0068 CADJ STORE OBWu           = tapelev4, key = ilev_4
                0069 CADJ STORE OBWv           = tapelev4, key = ilev_4
                0070 CADJ STORE OBWt           = tapelev4, key = ilev_4
                0071 CADJ STORE OBWs           = tapelev4, key = ilev_4
                0072 #   ifdef ALLOW_OBCS_PRESCRIBE
                0073 CADJ STORE OBWu0, OBWu1   = tapelev4, key = ilev_4
                0074 CADJ STORE OBWv0, OBWv1   = tapelev4, key = ilev_4
                0075 CADJ STORE OBWt0, OBWt1   = tapelev4, key = ilev_4
                0076 CADJ STORE OBWs0, OBWs1   = tapelev4, key = ilev_4
                0077 #   endif
                0078 #   ifdef ALLOW_OBCSW_CONTROL
                0079 CADJ STORE xx_obcsw0      = tapelev4, key = ilev_4
                0080 CADJ STORE xx_obcsw1      = tapelev4, key = ilev_4
                0081 #   endif
                0082 #  endif /* ALLOW_OBCS_WEST */
                0083 # endif /* AUTODIFF_USE_STORE_RESTORE_OBCS */
                0084 #
c5e6d01d8f Mart*0085 # ifdef ALLOW_OBCS_STEVENS
3c775cbf98 Mart*0086 #  ifdef ALLOW_OBCS_NORTH
c5e6d01d8f Mart*0087 CADJ STORE OBNtStevens    = tapelev4, key = ilev_4
                0088 CADJ STORE OBNsStevens    = tapelev4, key = ilev_4
                0089 CADJ STORE OBNvStevens    = tapelev4, key = ilev_4
3c775cbf98 Mart*0090 #  endif
                0091 #  ifdef ALLOW_OBCS_SOUTH
c5e6d01d8f Mart*0092 CADJ STORE OBStStevens    = tapelev4, key = ilev_4
                0093 CADJ STORE OBSsStevens    = tapelev4, key = ilev_4
                0094 CADJ STORE OBSvStevens    = tapelev4, key = ilev_4
3c775cbf98 Mart*0095 #  endif
                0096 #  ifdef ALLOW_OBCS_EAST
c5e6d01d8f Mart*0097 CADJ STORE OBEtStevens    = tapelev4, key = ilev_4
                0098 CADJ STORE OBEsStevens    = tapelev4, key = ilev_4
                0099 CADJ STORE OBEuStevens    = tapelev4, key = ilev_4
3c775cbf98 Mart*0100 #  endif
                0101 #  ifdef ALLOW_OBCS_WEST
c5e6d01d8f Mart*0102 CADJ STORE OBWtStevens    = tapelev4, key = ilev_4
                0103 CADJ STORE OBWsStevens    = tapelev4, key = ilev_4
3c775cbf98 Mart*0104 CADJ STORE OBWuStevens    = tapelev4, key = ilev_4
                0105 #  endif
c5e6d01d8f Mart*0106 # endif /* ALLOW_OBCS_STEVENS */
0785f33837 Patr*0107 #
7ef077cd3d Patr*0108 # ifdef ALLOW_PTRACERS
                0109 #
                0110 #ifdef ALLOW_OBCS_NORTH
                0111 CADJ STORE OBNptr  = tapelev4, key = ilev_4
                0112 #ifdef ALLOW_OBCS_PRESCRIBE
                0113 CADJ STORE OBNptr0 = tapelev4, key = ilev_4
                0114 CADJ STORE OBNptr1 = tapelev4, key = ilev_4
                0115 #endif /* ALLOW_OBCS_PRESCRIBE */
                0116 #endif /* ALLOW_OBCS_NORTH */
                0117 #ifdef ALLOW_OBCS_SOUTH
                0118 CADJ STORE OBSptr  = tapelev4, key = ilev_4
                0119 #ifdef ALLOW_OBCS_PRESCRIBE
                0120 CADJ STORE OBSptr0 = tapelev4, key = ilev_4
                0121 CADJ STORE OBSptr1 = tapelev4, key = ilev_4
                0122 #endif /* ALLOW_OBCS_PRESCRIBE */
                0123 #endif /* ALLOW_OBCS_SOUTH */
                0124 #ifdef ALLOW_OBCS_EAST
                0125 CADJ STORE OBEptr  = tapelev4, key = ilev_4
                0126 #ifdef ALLOW_OBCS_PRESCRIBE
                0127 CADJ STORE OBEptr0 = tapelev4, key = ilev_4
                0128 CADJ STORE OBEptr1 = tapelev4, key = ilev_4
                0129 #endif /* ALLOW_OBCS_PRESCRIBE */
                0130 #endif /* ALLOW_OBCS_EAST */
                0131 #ifdef ALLOW_OBCS_WEST
                0132 CADJ STORE OBWptr  = tapelev4, key = ilev_4
                0133 #ifdef ALLOW_OBCS_PRESCRIBE
                0134 CADJ STORE OBWptr0 = tapelev4, key = ilev_4
                0135 CADJ STORE OBWptr1 = tapelev4, key = ilev_4
                0136 #endif /* ALLOW_OBCS_PRESCRIBE */
                0137 #endif /* ALLOW_OBCS_WEST */
                0138 #
                0139 # endif  /* ALLOW_PTRACERS */
                0140 #
e2f9dd03ab Mart*0141 # ifdef ALLOW_SEAICE
                0142 #
                0143 #ifdef ALLOW_OBCS_NORTH
                0144 CADJ STORE OBNh   = tapelev4, key = ilev_4
                0145 CADJ STORE OBNa   = tapelev4, key = ilev_4
                0146 CADJ STORE OBNsn  = tapelev4, key = ilev_4
0e6a0d679f Patr*0147 #ifdef SEAICE_VARIABLE_SALINITY
3c775cbf98 Mart*0148 CADJ STORE OBNsl  = tapelev4, key = ilev_4
0e6a0d679f Patr*0149 CADJ STORE OBNsl0 = tapelev4, key = ilev_4
                0150 CADJ STORE OBNsl1 = tapelev4, key = ilev_4
                0151 #endif
e2f9dd03ab Mart*0152 #ifdef ALLOW_OBCS_PRESCRIBE
                0153 CADJ STORE OBNh0  = tapelev4, key = ilev_4
                0154 CADJ STORE OBNh1  = tapelev4, key = ilev_4
                0155 CADJ STORE OBNa0  = tapelev4, key = ilev_4
                0156 CADJ STORE OBNa1  = tapelev4, key = ilev_4
                0157 CADJ STORE OBNsn0 = tapelev4, key = ilev_4
                0158 CADJ STORE OBNsn1 = tapelev4, key = ilev_4
                0159 #endif /* ALLOW_OBCS_PRESCRIBE */
                0160 #endif /* ALLOW_OBCS_NORTH */
                0161 #ifdef ALLOW_OBCS_SOUTH
                0162 CADJ STORE OBSh   = tapelev4, key = ilev_4
                0163 CADJ STORE OBSa   = tapelev4, key = ilev_4
                0164 CADJ STORE OBSsn  = tapelev4, key = ilev_4
0e6a0d679f Patr*0165 #ifdef SEAICE_VARIABLE_SALINITY
3c775cbf98 Mart*0166 CADJ STORE OBSsl  = tapelev4, key = ilev_4
0e6a0d679f Patr*0167 CADJ STORE OBSsl0 = tapelev4, key = ilev_4
                0168 CADJ STORE OBSsl1 = tapelev4, key = ilev_4
                0169 #endif
e2f9dd03ab Mart*0170 #ifdef ALLOW_OBCS_PRESCRIBE
                0171 CADJ STORE OBSh0  = tapelev4, key = ilev_4
                0172 CADJ STORE OBSh1  = tapelev4, key = ilev_4
                0173 CADJ STORE OBSa0  = tapelev4, key = ilev_4
                0174 CADJ STORE OBSa1  = tapelev4, key = ilev_4
                0175 CADJ STORE OBSsn0 = tapelev4, key = ilev_4
                0176 CADJ STORE OBSsn1 = tapelev4, key = ilev_4
                0177 #endif /* ALLOW_OBCS_PRESCRIBE */
                0178 #endif /* ALLOW_OBCS_SOUTH */
                0179 #ifdef ALLOW_OBCS_EAST
                0180 CADJ STORE OBEh   = tapelev4, key = ilev_4
                0181 CADJ STORE OBEa   = tapelev4, key = ilev_4
                0182 CADJ STORE OBEsn  = tapelev4, key = ilev_4
0e6a0d679f Patr*0183 #ifdef SEAICE_VARIABLE_SALINITY
3c775cbf98 Mart*0184 CADJ STORE OBEsl  = tapelev4, key = ilev_4
0e6a0d679f Patr*0185 CADJ STORE OBEsl0 = tapelev4, key = ilev_4
                0186 CADJ STORE OBEsl1 = tapelev4, key = ilev_4
                0187 #endif
e2f9dd03ab Mart*0188 #ifdef ALLOW_OBCS_PRESCRIBE
                0189 CADJ STORE OBEh0  = tapelev4, key = ilev_4
                0190 CADJ STORE OBEh1  = tapelev4, key = ilev_4
                0191 CADJ STORE OBEa0  = tapelev4, key = ilev_4
                0192 CADJ STORE OBEa1  = tapelev4, key = ilev_4
                0193 CADJ STORE OBEsn0 = tapelev4, key = ilev_4
                0194 CADJ STORE OBEsn1 = tapelev4, key = ilev_4
                0195 #endif /* ALLOW_OBCS_PRESCRIBE */
                0196 #endif /* ALLOW_OBCS_EAST */
                0197 #ifdef ALLOW_OBCS_WEST
                0198 CADJ STORE OBWh   = tapelev4, key = ilev_4
                0199 CADJ STORE OBWa   = tapelev4, key = ilev_4
                0200 CADJ STORE OBWsn  = tapelev4, key = ilev_4
0e6a0d679f Patr*0201 #ifdef SEAICE_VARIABLE_SALINITY
3c775cbf98 Mart*0202 CADJ STORE OBWsl  = tapelev4, key = ilev_4
0e6a0d679f Patr*0203 CADJ STORE OBWsl0 = tapelev4, key = ilev_4
                0204 CADJ STORE OBWsl1 = tapelev4, key = ilev_4
                0205 #endif
e2f9dd03ab Mart*0206 #ifdef ALLOW_OBCS_PRESCRIBE
                0207 CADJ STORE OBWh0  = tapelev4, key = ilev_4
                0208 CADJ STORE OBWh1  = tapelev4, key = ilev_4
                0209 CADJ STORE OBWa0  = tapelev4, key = ilev_4
                0210 CADJ STORE OBWa1  = tapelev4, key = ilev_4
                0211 CADJ STORE OBWsn0 = tapelev4, key = ilev_4
                0212 CADJ STORE OBWsn1 = tapelev4, key = ilev_4
                0213 #endif /* ALLOW_OBCS_PRESCRIBE */
                0214 #endif /* ALLOW_OBCS_WEST */
                0215 #
                0216 # endif /* ALLOW_SEAICE */
11c6805584 Timo*0217
8ff0453199 Jean*0218 # if (defined ALLOW_SEAICE || defined ALLOW_SHELFICE)
                0219 #  if (defined NONLIN_FRSURF && defined ALLOW_OBCS_PRESCRIBE)
11c6805584 Timo*0220 CADJ STORE obneta0,obneta1 = tapelev4, key = ilev_4
                0221 CADJ STORE obseta0,obseta1 = tapelev4, key = ilev_4
                0222 CADJ STORE obeeta0,obeeta1 = tapelev4, key = ilev_4
                0223 CADJ STORE obweta0,obweta1 = tapelev4, key = ilev_4
                0224 #  endif
                0225 # endif