** Warning **
Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.
MITgcm/MITgcm/eesupp/src/exch_tap_d.F
File indexing completed on 2023-05-28 05:09:43 UTC
view on github raw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre* 0001 #include "PACKAGES_CONFIG.h"
0002 #include "CPP_EEOPTIONS.h "
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015 SUBROUTINE EXCH1_UV_RL_CUBE_D (
0016 U Uarray , Uarrayd , Varray , Varrayd ,
0017 I withSigns ,
0018 I myOLw , myOLe , myOLs , myOLn , myNz ,
0019 I exchWidthX , exchWidthY ,
0020 I cornerMode , myThid )
0021 IMPLICIT NONE
0022 #include "SIZE.h "
0023 #include "EEPARAMS.h "
0024
0025 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0026 _RL Uarray ( 1-myOLw :sNx +myOLe ,
0027 & 1-myOLs :sNy +myOLn ,
0028 & myNz , nSx , nSy )
0029 _RL Uarrayd ( 1-myOLw :sNx +myOLe ,
0030 & 1-myOLs :sNy +myOLn ,
0031 & myNz , nSx , nSy )
0032 _RL Varray ( 1-myOLw :sNx +myOLe ,
0033 & 1-myOLs :sNy +myOLn ,
0034 & myNz , nSx , nSy )
0035 _RL Varrayd ( 1-myOLw :sNx +myOLe ,
0036 & 1-myOLs :sNy +myOLn ,
0037 & myNz , nSx , nSy )
0038 LOGICAL withSigns
0039 INTEGER exchWidthX
0040 INTEGER exchWidthY
0041 INTEGER cornerMode
0042 INTEGER myThid
0043
0044 CALL EXCH1_UV_RL_CUBE(
0045 & Uarray , Varray ,
0046 & withSigns ,
0047 & myOLw , myOLe , myOLs , myOLn , myNz ,
0048 & exchWidthX , exchWidthY ,
0049 & cornerMode , myThid )
0050
0051 CALL EXCH1_UV_RL_CUBE(
0052 & Uarrayd , Varrayd ,
0053 & withSigns ,
0054 & myOLw , myOLe , myOLs , myOLn , myNz ,
0055 & exchWidthX , exchWidthY ,
0056 & cornerMode , myThid )
0057
0058 END
0059
0060
0061
0062 SUBROUTINE EXCH1_UV_RS_CUBE_D (
0063 U Uarray , Uarrayd , Varray , Varrayd ,
0064 I withSigns ,
0065 I myOLw , myOLe , myOLs , myOLn , myNz ,
0066 I exchWidthX , exchWidthY ,
0067 I cornerMode , myThid )
0068 IMPLICIT NONE
0069 #include "SIZE.h "
0070 #include "EEPARAMS.h "
0071
0072 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0073 _RS Uarray ( 1-myOLw :sNx +myOLe ,
0074 & 1-myOLs :sNy +myOLn ,
0075 & myNz , nSx , nSy )
0076 _RS Uarrayd ( 1-myOLw :sNx +myOLe ,
0077 & 1-myOLs :sNy +myOLn ,
0078 & myNz , nSx , nSy )
0079 _RS Varray ( 1-myOLw :sNx +myOLe ,
0080 & 1-myOLs :sNy +myOLn ,
0081 & myNz , nSx , nSy )
0082 _RS Varrayd ( 1-myOLw :sNx +myOLe ,
0083 & 1-myOLs :sNy +myOLn ,
0084 & myNz , nSx , nSy )
0085 LOGICAL withSigns
0086 INTEGER exchWidthX
0087 INTEGER exchWidthY
0088 INTEGER cornerMode
0089 INTEGER myThid
0090
0091 CALL EXCH1_UV_RS_CUBE(
0092 & Uarray , Varray ,
0093 & withSigns ,
0094 & myOLw , myOLe , myOLs , myOLn , myNz ,
0095 & exchWidthX , exchWidthY ,
0096 & cornerMode , myThid )
0097
0098 CALL EXCH1_UV_RS_CUBE(
0099 & Uarrayd , Varrayd ,
0100 & withSigns ,
0101 & myOLw , myOLe , myOLs , myOLn , myNz ,
0102 & exchWidthX , exchWidthY ,
0103 & cornerMode , myThid )
0104
0105 END
0106
0107
0108
0109 SUBROUTINE EXCH1_RL_CUBE_D (
0110 U array , arrayd ,
0111 I withSigns ,
0112 I myOLw , myOLe , myOLs , myOLn , myNz ,
0113 I exchWidthX , exchWidthY ,
0114 I cornerMode , myThid )
0115 IMPLICIT NONE
0116 #include "SIZE.h "
0117 #include "EEPARAMS.h "
0118
0119 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0120 _RL array ( 1-myOLw :sNx +myOLe ,
0121 & 1-myOLs :sNy +myOLn ,
0122 & myNz , nSx , nSy )
0123 _RL arrayd ( 1-myOLw :sNx +myOLe ,
0124 & 1-myOLs :sNy +myOLn ,
0125 & myNz , nSx , nSy )
0126 LOGICAL withSigns
0127 INTEGER exchWidthX
0128 INTEGER exchWidthY
0129 INTEGER cornerMode
0130 INTEGER myThid
0131
0132 CALL EXCH1_RL_CUBE(arrayd , withSigns ,myOLw , myOLe , myOLs , myOLn ,
0133 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0134
0135 CALL EXCH1_RL_CUBE(array , withSigns ,myOLw , myOLe , myOLs , myOLn ,
0136 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0137
0138 END
0139
0140
0141
0142 SUBROUTINE EXCH1_RS_CUBE_D (
0143 U array , arrayd ,
0144 I withSigns ,
0145 I myOLw , myOLe , myOLs , myOLn , myNz ,
0146 I exchWidthX , exchWidthY ,
0147 I cornerMode , myThid )
0148 IMPLICIT NONE
0149 #include "SIZE.h "
0150 #include "EEPARAMS.h "
0151
0152 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0153 _RS array ( 1-myOLw :sNx +myOLe ,
0154 & 1-myOLs :sNy +myOLn ,
0155 & myNz , nSx , nSy )
0156 _RS arrayd ( 1-myOLw :sNx +myOLe ,
0157 & 1-myOLs :sNy +myOLn ,
0158 & myNz , nSx , nSy )
0159 LOGICAL withSigns
0160 INTEGER exchWidthX
0161 INTEGER exchWidthY
0162 INTEGER cornerMode
0163 INTEGER myThid
0164
0165 CALL EXCH1_RS_CUBE(arrayd , withSigns ,myOLw , myOLe , myOLs , myOLn ,
0166 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0167
0168 CALL EXCH1_RS_CUBE(array , withSigns ,myOLw , myOLe , myOLs , myOLn ,
0169 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0170
0171 END
0172
0173
0174
0175 SUBROUTINE EXCH1_RL_D (
0176 U array , arrayd ,
0177 I myOLw , myOLe , myOLs , myOLn , myNz ,
0178 I exchWidthX , exchWidthY ,
0179 I cornerMode , myThid )
0180 IMPLICIT NONE
0181 #include "SIZE.h "
0182 #include "EEPARAMS.h "
0183 #include "EXCH.h "
0184
0185 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0186 _RL array ( 1-myOLw :sNx +myOLe ,
0187 & 1-myOLs :sNy +myOLn ,
0188 & myNz , nSx , nSy )
0189 _RL arrayd ( 1-myOLw :sNx +myOLe ,
0190 & 1-myOLs :sNy +myOLn ,
0191 & myNz , nSx , nSy )
0192 INTEGER exchWidthX
0193 INTEGER exchWidthY
0194 INTEGER cornerMode
0195 INTEGER myThid
0196
0197 CALL EXCH1_RL (arrayd ,myOLw , myOLe , myOLs , myOLn ,
0198 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0199 CALL EXCH1_RL (array ,myOLw , myOLe , myOLs , myOLn ,
0200 & myNz , exchWidthX , exchWidthY , cornerMode , myThid )
0201 END
0202
0203
0204
0205 SUBROUTINE EXCH1_RS_D (
0206 U array , arrayd ,
0207 I myOLw , myOLe , myOLs , myOLn , myNz ,
0208 I exchWidthX , exchWidthY ,
0209 I cornerMode , myThid )
0210 IMPLICIT NONE
0211 #include "SIZE.h "
0212 #include "EEPARAMS.h "
0213 #include "EXCH.h "
0214
0215 INTEGER myOLw , myOLe , myOLs , myOLn , myNz
0216 _RS array ( 1-myOLw :sNx +myOLe ,
0217 & 1-myOLs :sNy +myOLn ,
0218 & myNz , nSx , nSy )
0219 _RS arrayd ( 1-myOLw :sNx +myOLe ,
0220 & 1-myOLs :sNy +myOLn ,
0221 & myNz , nSx , nSy )
0222 INTEGER exchWidthX
0223 INTEGER exchWidthY
0224 INTEGER cornerMode
0225 INTEGER myThid
0226
0227 CALL EXCH1_RS(arrayd , myOLw , myOLe , myOLs ,
0228 & myOLn , myNz , exchWidthX , exchWidthY ,
0229 & cornerMode , myThid )
0230
0231 CALL EXCH1_RS(array , myOLw , myOLe , myOLs ,
0232 & myOLn , myNz , exchWidthX , exchWidthY ,
0233 & cornerMode , myThid )
0234
0235 END
