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