From 85365c417b8b07822962994ae480db5d0bcb09d1 Mon Sep 17 00:00:00 2001
From: andrew-platt <andy.platt@nrel.gov>
Date: Mon, 29 Jan 2024 15:14:43 -0700
Subject: [PATCH] Pass pointer into AD15 during init.

Also modify call order in the ADI library
---
 modules/aerodyn/src/.AeroDyn_Inflow.f90.swp | Bin 0 -> 53248 bytes
 modules/aerodyn/src/AeroDyn.f90             |   3 ++
 modules/aerodyn/src/AeroDyn_Inflow.f90      |  20 +++++++------
 modules/aerodyn/src/AeroDyn_Registry.txt    |   1 +
 modules/aerodyn/src/AeroDyn_Types.f90       |  31 ++++++++++++++++++++
 modules/openfast-library/src/FAST_Subs.f90  |   6 ++--
 6 files changed, 49 insertions(+), 12 deletions(-)
 create mode 100644 modules/aerodyn/src/.AeroDyn_Inflow.f90.swp

diff --git a/modules/aerodyn/src/.AeroDyn_Inflow.f90.swp b/modules/aerodyn/src/.AeroDyn_Inflow.f90.swp
new file mode 100644
index 0000000000000000000000000000000000000000..1fdd9e7a1e2cdd5f24908a6c8a13dc47457394a7
GIT binary patch
literal 53248
zcmeI54U}X@b>E-B2xEj%Btr}Y^LouPJ<{y#S3ueovv_uARy)#sX?J#)56eT(^qZMR
z{gwXE>?{O)Y-EJPiGdg&At1+gjFk`!aU3U*bCO^VcEALTEL%1v24nCc-~>p{0ULzv
z{O+x)_v*cV-7`CkK*#jk{r7agSD&})Ro#2*)~%I87iQ+dW8;Scu4{wf8_#)P^!C5_
zz_srl3xZO!TIzJ<!Qjh;J8<;qO)q$UdqB`vn}7$~jkV5ZsTCb4M|VfnMza>xI|pyA
zbk1~F4mO%meXZ2)99ZeDAFMUX-D=c6Sc+PW@>cy|yR~|7lJ8Sn_2rrRTD7q`zIIGY
zJ|NfOqag)`6bQPVwF5UlB{+KIu)Z)qx~~vkf8F^ZVTKeKQea4dAq9pM7*b$JfguHk
z6c|$Adx!#^=97chP~XSdI?vj_S7rWQZGXFPGnwa4u)kfn?DOxl&nN8PY(7u4_b2V&
zH`>3h9N(XL{$S?$lkD$B`}aB<(Z&A(d*9`|l6n4Q`+Uy+eNX23HJSL2WS&3XKEK8O
zz10%R<!^5f{|qTGq`;5@LkbKjFr>hc0z(Q6DKMnKkOD&r3@Pwkp+Kn|1lN)COGQw<
zHVB-2{L!ZdK^?ppOo1Y}9(?czgWx`J2HXl>0G<zS0HfgZPYHt0f!_u11^0o=;HBUt
z;Q8P>@MQ$*{{cP<-VXi+cr*Ax@E;Jy>)=N4VFdS^!EYkquZWNjei3EBVekhi4PFfX
zH%f=sfk#k6yahZD`~&b`P&)h*@J#R!0{ZWR2f)vP*ML`pv)~3W3Z4MIgxvl`@E~|C
zxCy)f>;q2(e-52K2!08?3cM01?ZPlDgr^$y)lw&_1AcSkz<~qdOuf>nl&Y1>5nsh<
zA-q_rm%|_+M05YePHU>!*^uB98g!=K+&?+x?wde!XKt4Oa-{-sKj0pzv@R^!AV~nd
zX`Z(`jaGE#%!R1xC6L@Sfyy1yGS@^{sdu8*-KA>4jY4=X>V(Zwt5l1)i;V|2D{En~
zRIN6o!sVh=a-rLyAeBzUmu9zfzTO!f4a<=W)Gy4A5<63FZJU^ck;G_+YE){4n^KmB
zmc<l#m7;`Gm3DLf!c;MwoSIp_5Vb-ZNA6ckTVZD-3XS0jG+1l2YNbx4QP(PK{P~MZ
zr?5V$bc*5h>PBO>vO*#g<EJNQ&rOfJ#Jo0_^dwGruDjBrG?jW35~)>cZE2!Wt2NhN
zmxkT9PfE}4bDdI$-_xzu%+&IHqaK-Bd5PX#YE?=r*v5pEkRn&wp-tNqbc429rKyT0
z_1UOCO48x+<B~kt9g$yh6~azbYc`}b@`%K0QM+AQ*DR$Etdq!0y>oj-6EKlXGEz#H
zPH!@8o_5<|V@(N)Sx?K*krX;x&8Rpzr9?DcWr;hZQaam>mM5pAXy##9E_F)bTB}i`
zLF}uPPRqPj@>UH>bLQd>(=3Fu^y+FD6FH#Jt1(G$7#%ZYNPh~k>U4^bHilL)spC+E
z7fOpJ6qYv#l51lh%(ix#^f?*kW~XV{4CCy!Z;6>K+2Z_cE|q#*DceG>R^(z^NjhS>
zeO#9u59b$_rjPTKRKiXplo4T5du}U|C@%^~uEju6oLZry#kspo%-`O!$Q>D@Y&gnt
zs?lv$EA@5qvX3hDupO;7>g9GoFx&NJmgg$%)eEJTc04~nn~B$oHJf^piI9K+J*<%i
z25X&4t#VmAWV*-1c^LxrWTj<H_n57|d9}CNyr|N*7+Kq4(S5;;F03~?A^ml=i@9D@
zz9k@$ByWZv?P5_n|K55o#38j15YyGOAx}c-Mp2rGOn2>0t3+DT@sb>R6TjTIV(VST
z8#heQPBy{3>=>a}TTDRd%$SLK-n>iYRDNDv$~KL>^r;S`bGOlLr*p_jKb3swrB4lP
z8hJS^x+yf>7&$d)_T&)9O}7E;LbsDiPU7|!y4#cFWSwB9FPmmClS#x~61~OzkqKcV
ztaaO+a3x|oUt<C*2c#AEG3h6H#jr)l3?77Z1yQ<@lO5sv4j^GzG-F4*5pG8G^?KNC
zN8#MUh3VzV+1Z6tqd_~FTxDLDA}PN?ZewA0EadYN|I1_H<*_j7>SN*7SXdjQtDE6M
zz9}O!=7whd!i+f@6bj)IbGf6Kc^|?Otem@*L&Q*CP)oFNmqfxz>Ekxc6>nIiY3a+n
zQL3*;<*?js$ymng7q%-kdA;F8NaX|tNoM?zufmxS0k%N{cS@~}d#93^GW0SJ3s2*U
z>;^6dmu8!k;a9)QR}jc6#F(PpTqlLIkxmLR)nsn1ZOxbF;gJp;J2rl7Swbk|)9kKP
zE35P`g21!V4`jGpKHX@+Qp`xN^+QNoFVE4v=St0fVJHn8t{KA5M5VH@za*o){@qc%
z!kq8sIm3*VTa~+`R!?c9SDtUe%9!Cx6Y<L;&rdOko1C&Gm8a8neeJT5&PGy=FfWFA
zAW!sNU2HYhr=s>M6Kq0Dp_HU9obW{Gf)v9MZjOwFBMR7BO`ob!0sUU7G10D)ab5UR
zc`C1D!ikNAje2!UI64t|V%|(%u=qw&-_&heQAsbh_Fi!5!8g*dNIU1ct+mps@~K`(
zFPPMRjJnY~;;(*=Jn<VugXUx{W2?57mka$$DzTh;rh<Xv?5zY5mtVun`#)J_5OZDJ
z^&ELKSA}(n!p#c8U@6>px^!0*PFFF77jyT0VX;=JS89ln?G7EBS+cv@>9*iP+Knpx
zZ8Vf&VNMO^txUi`>9`@da9a``W0EEaME?Iga_|2_Mi%+stzZ8Fvi^&}Cz0tt1nvcM
z;41K|$nO<!2bcsu21KU+2D1BSz(>H%;3iN2KZ_jydhjgpS!DTJ!Eta5JPmvunSK`h
z7&r>90e^{n{}FI4xC(q7Isbj&UEp7WcYu4rE5HHpPUQb<z~3PE|6lMY;FI7J;5Wc3
zm;j<1_&)G>@Him#{({tfcnv8qq`==>3PiAJ`D1br$TN?B%;y^<&|0^?DlAxdx>SMP
zl1Y!t{9y8Q!u*MeaB`*5>LBgUMt27qNI5iNNw_J}g(zm^?-9penlEz8-C^?WEy{>$
ztE!Fl$|_@jra;Bfgn5!|DRa32t5UhRG{#he4p1jD^Q5vSLCi%!|0g#|y&5jHO7-?y
z)LLF_z{@Xp8q2dV|3`{j%hOZ)mo{6A9buj(r{J)Ky%M#h$)!k+qx+W{n^9}7Arynp
zmN-ngi_1p{yF9y0k$Pw_ip;TAGz2Z8??c+_w(5Z`rT*ztFfC!GV952oCDl9AaXA)u
zRSwa8Zdc{~_4!6QYM(eXDm=NXgv8V$Y?RtcpVU(%451l4HP$&&=}haKTUuC5NYX?^
z=-e<ia^l2^9FF&RxU?{}VE72whLcqo*!GBx9aY=PJ}F&IXGzlKW*<_UK9E~|P5*48
z(J`%Ftek|`>>tt()zd#tn%Gy|N9ggDle~?G$27@$w`OW>s}?svtFm4xn@5>8(3`w3
zs8!HI!kVoJ*+TS6Fr-r{64@X6q9qUd5YFqPn#Ilul?~a`iO=qaSldvlV7iMTL`(%s
z7UlRu?VG%^JFL2S9p~ZNkyhQnknJ8bI&_?_)Lnp{$}XMG89Ks&V@LlNHqL1OsYb0<
z>7YT&bO*{C9toEi@(C+FqUgrOgg*~Y&DobWEOy}B>tU%K+KQ4~BWAymY^!Kc7}?gs
zri`kYcYXV=vkm!l<gKSk+(W_n90CrcUqLDZ7332NxYpmkwCw3+maua`wyCwO8{HN6
zyr-OJuDqONNIB(G%1IC9l61p~6X9v5po>d7IR)I7{(o_4;_z6TwYj2sXcvP}g2c0*
zYgk=@*f%}3&udR51Vhx0R&Z1ZKilY#lZfEb`i%9+-&#Hq4J-5-I!k*4?twmpE+}5;
zNY)>wHM_n`I)zZy<f<~c?rN<;2xcxy=0;z0!zC@MFSE9j$|N9^)Jc|%_?ulaVpNs{
z8cmT)wd$g7)Uj3Bl0i`~F6G5dSQ=NdzDqWy0?Fr?mNe16o4RT<qTJd2N==f3e9O;8
zm^>bmi+t-tNbM~2l;tT_zvwQg^wuMILvsnOD7;mzQg}kzM^boE8!+8($~rR~)QZep
zx{3yG<*OA&RsKK1y7mcl03!c8`~16*{ci`~MBaZp_%!nUpMv*;cYrDIS!DY^10MqO
z;0X9(@E+v+w}Ll;5%446+29G_%gFopg4cjogS)^hKnc7YoB>yZ-$Dm)8N3`UgOlJJ
z=m9<f-VNRYejdCE{5A6bm%%TAc_8)xZvf8*A3(-m0$)MKe?1UefG2?WP~Ua10A2*7
z{?7z21lNH-fhLE*)!?qHg5Wl=-9-cNKJ*<5f^DAri@nL)Zc^;~w)0x-!2<5ii?;KS
z{*vi;q!OZ(^=Pr%lDc^A@1V8$orH1g_ut_r%}_%pgJj&6Rf5!-eBpa$&HFL6&g`v?
z?ZG-TtvX<>*UKwe01M^PbvUyQxZAZ}FY)ihTCbPgqq5fPr>`W6KRjA}TWh_@0AXnC
zMB?>OlL<L^YrURgN|tHNT1K(&a%O5RlVMjl3}vFt66T4}B=DG6=|gJv^=?u<S*S5Q
zbzgNGL=tJvD2Yaml42EmuX?wM{>zZiQ_49OHq6z^StZAn>g8NfM@Ch|=&z2G@?@%M
z%W6xi5>&Dtv&{Njr`6aJI+&F}XEnDxb1_dC@{>WW)<3#v>1=;UbdJ`htA8T8ej2)!
zbo6(95|I?Vo|?2rS|OQjEs5r9x0D)GgZ4;P_+kpEqEX9G+t1@=y8_tGD^p)ZqVyeW
zFX^l1dQ3IRz;(n}zhR0eHjk67t>V^xHK-g54>_)!+8hGOg$h^0u!!1A`@Ti=^l~<j
z3A5fEn3Vez<LDSx0tm9wcWAdn8;kU?n_?JBB}Sr&T4Zbg%*AET(i3f)uE$IHvV}{B
zv_-6u!2T`YSafu3Bpvd~NY>MQ);>y`Fk2+A<cQ(>=esptHG0vA_n>d~ZsbX;r{h#0
zg-7|~;Zc`-cw_d#$!dANyu8%t*a8qj=@O?U<SdB(_Bh(4b{9Jw*3=`T$k%6C^Wt@E
zK%1C>^i)2_h{3&8ej{K&8ymp*_p#)S@1wkTN`5NmQOu9rH;|@u1+Rjwz8bi0sP%<d
zyL1{>M<O!;20^8=Ebd@HV-y18VR&w%(XC<+Ba7|wv}7KIl`>*;WvzmNh7dQL<k@Co
zCLDHociOr}ZgNv~jIrpT>tg<_YwNN$vRZ1>9%B7tGA&4gcG%u;j4A9dA%<9l@Z9u7
zWBKa6r|8IaSd*TEk&^i=>z~W|nec1+b4x#K`Z*(-6l@^<2I@E3<n&!x|Nlkg`%eIo
z{}Gw>x`6C|9vlN#fd_4v-{bF30kQcXUPB5DDKMnKkOD&r3@I?Az>oq%3JfVQq`;5@
zf8Qx!MO~|9I*lp(=}LsWjg5s9dQtGi_eJzAu<5mamuLMy(hfC%JoHpnairZPwx_9S
zof6|6S7Ny>`Sd8Atc`u5blOY33k2<_ZAm}6A{~p!|Ib3czXgc=&vLh3k-KMq5C04)
zFr>hc0z(Q6DKMnKkOD&r3@I?Az>oq%3JfXmJxT%90G#qXzOmuNT3*N|4%|&SI}AeF
zm49R5me_m6MgX$IYaaUovy3l_70h9*TEv+LWUK(hSVV$n*Z=bk#l+gE&-%Z#-#@yF
z59I$z+n66g{=W!LfoFhg!BfHiW8MD&@M^FQ*1#<IF#7@C2+n{%W)Hx<;4t`~*!<rE
zj)Ko%*Dp5z&jRnop8r1Zlb{J2;3vRU;LX_dzX^1}OTZMk1_VI-0DKLI@4t6~UjeTJ
zXTX!d?_$94&%i9W9UK7S6X09mFF*<WDfa(A3l4(+j;;Soz=u(M{5ZG<{5-S}deCgT
z3q!2^w(&jW+lzX>htyaU4<yIM>zw*7vR;AIQ_C%6faQ@s7tbv>PA!!<-7u9e{cDg<
zB0pbJb61jY5<i{ucKOB@sN&)R12T8T8&9~=YrUE_T_woQjjiMK@Q{b4Q}MXiCX(Kg
z{1W@8#%cxMBbe)mgN!cEWphogZ!a}k%#@qN+>RfQW|E9Nk;~DH%sQbdgu2;MKPGDS
zLqRsE(Q2brK5$nQHI1LKaQYHHu$uZFHZcZL4}WTiDzr-6=Or{W`SICHOfd>}7X>=i
zZMDR~jPJt-deD?nGpu84c4+MI*!cK(K%8BWI`Q|Y)$f;^M`q8)Q{D>Se@ZdLNQ{l%
zI9oE*8{l*aE9G9>WOb=yJNp=W#GEUzvCui~8dG~K-$Y&gCw0}W4%_qDPS(MSPMbnp
zSK<+6w$Z?iOza57Ibf8a;y6W`P`)R*+1JGE+*%i>g#_Vo+N+l-iDoR%T>*Q__t<c$
zl(9gTmYc?zko1~(Ub2?MW?U$WTdYhAIoFmppmFP{qnB<iJD!`IxY;X`jb5~Ra^<Gp
zQ<`{31BoQlAL;BUI)fk9)M5f36~*sYa_uO(jM+AFsIJ4}_&bVD?#3^k5CG?6$(0+u
z5c-srtvY7UUOr)Ud@hPxvmGRsczcpffF{9$Z+Ff2vd%lEjM-+;0kz1WE4~?X^CO<@
zrgeL1yE^_AgyRrjk2ui6MQj&`4$c!oy0R7V(v|H+36mt9wWy}Cj4j4Q*8YX6`dj?E
z=@%MV|JuG{e~FJbu{fp!PP;7;e9<itl-yQVv+0V-u2^C2#uhU#@j^)Hu};;KjP)IX
zfPMD}`g;J=(}(O6t^`urZ_g1avkJvz$YVAWKd-_TQX=W+;a+<ojq{S;JlGlRwjMdX
zS=-+!MHVu~?139jF9Y8VCmEbe`QDT^h}ptqOiJ?`@yrf8VA!N2q|UYa)6O-i6wR1b
zA^{zG;$(YM^!Hg&$|Pc5vX1{uC+e{vaY6n4R3z&n<|Qg4+yIA}9z`!fG<TV@rsvau
zhcQvN<vruF`a7pcHjb$K$>a2P%@5j!*Wn3w4(h}fFL3Os#wQ47=VoXVKg?PGlQLrM
z!0n`c@pMp?F##u&+xd26sP6Ub_?Trg>~1q@UMYCSUy<C_D|Vq24@G;uTgwz=`~6z0
zbZK5b?LdX*eq5p_uF%6m$Zwo8u(hB*g3n!b(-}~M9tY{%bF+%cnLS54v+d7X_1iAu
z?b+(PZ>YfLz6u){th0G*ji3S(ZwvwgJAUg%Xp#AL4Ifsz|NkaL>vPDvzWjf$mHFRm
z<@-NFuKy_bH{g}v5oG(zU<5oB{2lWB-+~9h`@ze=S#Sq<9Jq|kzXjI88n_euIG6%o
zMdtrQa1Yo5>tGGcfNvu6KLq|gcpJDMTn3^C_%(1R7zMwDod0|vGXCqqLGTdr{j0#^
z!E2H6e-wNG`F;tU1J48Bq}~sLe-6Z-e;F(Rp~qRUn~TP$)vjcY*UA0jl60l?^qz2T
zJmP{0I7?gN&q0($^i6To>G=&+*G?J6!NiO|NurKps(>3wUZ%Xx%YX?>Ky&+ugxxk#
z*HMieFl15;5%rU)X&WZR3%r}Jg#xka5zguEu5`9&D`Z-8ZUJmL>JxD)yivM4vJ)3N
zjM!bca_aF^xu61F%yh(M>E%8$Jd%lsBjQGlv4ts86k4)zR7M){1dF&0_s?C`qA<)J
z2uMB2IF|I%na3Fucw0tFGfgF%Fhyy`r#IQ{xT)T>9cPqI*<-2VA`fP%dQ;w(uS!zp
zo4fM(s@}9?9w|-d99`6&Ggq#l{H3hgHB{LqDn2?(h?6O0vD)~<#t~Aben6(JcBQ@=
zh5L*+xQ|{Qm33Dh3>X0e68ny5zQ{)$0MD#lT#ii?owMQ8&E;F!yc|_0S68!4;i=fY
za}ib9_D;#|i0ZgQWe)A=Z<SW^uE~TBo%qHUR^?97*R3>AlHzNL63Z6FPGx-qe#N>2
ze#~-<zB<u}%6)mpWHH0K0FWbJ>gN*|06SzUl}p>r_J6;u+q0GQ9^roz^{Mn*E^g*1
zUXpG6w5mFqELJ*+>SZUqAZd$2rW0#qRI9FoJ&y{OIb~hL_!}_eq>g08%ggG=KGyW?
zB)g<ydiIWKh=5VvFw+5fYL-bW#kbh*@6%FV4bdXAYgTpqMwhH#uZ)Fu{D^yfj`VkM
zR|t7$jewgR;UPn3J-Q_Kqb7dL=NHc}$vvZc?}P{NFc~hKUrOJ0-8ODjOX=lPjV4|l
zv^}LUMH<jLO2f`gpF6WWKYj7k!s1KDrk!J0zQ98cD0aUF7Dc+w!i=$N*7-W4sf-Xh
zZbYTk4TgkTWD2`OR<#h%)mjamK4?~V!7X-YWG&K68wK)~9}PW|<e*t2F+WUE0wV5|
z|8#lm=CAJ)3W_F*FDZbq0m%wYHhIGU%S&-2`{)XO_ZFb7+OU8$EJ@8V1(u@ZYI?sq
zb1>b1R9{?MS``*L%$76ta&!siO54&%tk(BmUpIKZ7CNqjq?>rcljM1KRD6*jOw}p6
zeGe%Nx8q5fc5``BeL;?!1q-V;Q$|b{e7Ov-j8ljHYrggroHT1`+sRX_Wtdi*Z^HDZ
zGtbLc?Eew7gObR)tp6`sf%m=0|81}j6u{r12M}Gro!}HW39bj9MHlc#;9+nNSO-rB
zPXlrufSl|1D)36M3~mLdf!GE-1-uX4z+K>(;7Q>7!GA(0ApQZz!2xhR_zH#mRq$5u
zM(}gsXMpGoYTy~*iQsDRMf3x22VJlPCctyR+t3r-2VMxS2cJV<@NRGi_!9bp`@wDC
zuh18~8{7uIiq7D5;AeoG6ZqfI8LWaE!MC8<=fNL<hroXZ_W_~h%Yk0f;KJI9EeDDj
z4gpkYh^`gN*o+oNHqPjxHZx19yro_n1L6paQ^D<zIHqNJSwl~-<m<1Zh@VnPnGZM8
zX9o2VRSEDyOJ71^z`N`nDko!3Q4Z%gjWP&NlksY}6k09@1N$i8mj*wl#dO9g_V6JI
z%SG_)<AB>b&Lu_cjY~XZ>>}PSB_VqW-I%xf9S{@{Z15yPfOtI1jN;B`D6~mtg)11{
zY!UrGCac~V!)0Yge$n5iGSwza>TyF)E9CnTjfZIIU$pBU)FMA4?K-BOXgcGyoOB&{
zp4ZG~(2<U#1{*rl=(uT{oad&^cXZs}U{NnUK$3xXq9w({5x(#w_E1YLtZ2`Yeklc^
zlydbXC8q}_m-I{b!kNw)@X#i?oUHZOdTYcuNq*^JhYfgKeWD*Yqrv!xvtD}BOBgPH
z{_aUn_{p85N0r64jQ7f`uvcYQJ{f%c^h}k_>81Oc?WijZs0=<8No${$J0ODJll=ml
zw0epyrf+^W^1JR_?P$`fs#XSPpa_1xUJ<>QZbej`C^C4Y2bgNKxWSfZ;?smgayJ83
zd_s}bARRsy^Su<Pc2>MM1DNX-MX3g_llpCwmLV1W6!W|?Pb9eQ{IRIzWEBzhAFD3<
zPQ_Xbp;Z4>o$tDYo)mQV^7(f|P==(j$2lQyEJ{Ld>kqDYd`x_&Go8zF(SGw{isb^{
z#qAIEt!}<A)NzMSl*3N^m-iNr+HyvMaTzD>r>s{mBWb9UydKwY(%^-?JReRIWJVF+
zUHF0L6g*W_-5p^wB8qH;XM3t8V@#Md=-wAZQWRpxhK6#3E9In44z0D$+HO32JoeKj
z?T~eeS3G=NO-_<Pfu@&9@bK{@Ns~<65Yn99hF=o&f=Xg>QN3cxrfE@=crMx!?{b+3
zS^sm|^1j2h9;b7KLP0V%`<_vnIlZIuFI)Q;XQwYUwNJvd>W?I}VFP+j$m?_33+-OT
zf4{e|r5aOFn(WFj2TnzqGB>^+F?H1*rKhI4ny5^s)p->9x%6L?TZx&z%uEj>#LTHw
z+SAucQk32tk0U+Z6T4R#JZPwN4?ph42vH(6w|q9o6jpWbuuYC)N-VPL(~>+Ha1FNA
z%5OE2)9zu$Hl4PUfkC>7Cb|<#vG92TiOD>rQPN`8VJl`ykVmyIB=vA4l_J@*sy1~U
z#4YI?uLFD9Q$+rkGyi`2Dn5|^XN}Yv{5~@OuYjKfvq1C!e~r8^=K;P8yat>F&jFu8
z*8erI44w;q0DKbJ{vNOaj)5`oTo8bdA>-c<%3u;a1H2X){}Px4KLkFF9RIID3ET=!
zfC=zb<oJ()cY!y6I;eq{ftP|iz%d}_0mvSKhroXXWpDyK8(a-OkIesa@I&C2k@;@{
z4<qk4!8PF5k@ar{w}2;uPa*Gr5WEZA51t0T0L?_^7ux-l&~JAa9gIu+bgglBw5(=D
zMQ`X=&zkAqhvI2^oVDHY#K<xmEKwFnKOY!4b>3FNKUWHc5+<A@WBs$i9y+%3^ooEh
zibDugxzDIozehyV`Y`}lD~iEd3=t_%<BFtTU#ON@K)|nOAViJL5KdvMBjycpVZ>@n
zA}rOKWXJl#&cjo38@^z?=BsFu<h2|5efLUMs_9+Z3-AL^9Z4#Y5Uk8fLA}i(Zn_9#
z+fv9E=VdjLP%}(7z9^3+p?Xv`u2lnyx|ey-6n-AoY3p9+BHh@}M!m%DbtY6Lm5Hm1
zx3tE38t<WDrOueMh%@5^uBg*3kiJ14*#Nn+rx=rxQ&blt^m?>uXC`SnX-ip~U&EY3
zEIOi)H8MGrR+gdb*qXqo%Uyd6@}5qeyPNp};e<RY8l8{$$ab>2G^GT}H&5&lWE1b^
z#N&#Wnk~bU?`r-OCzbmLK#B@5&6M^u1um(33p-*qVmvxN=T$3IRNcf(U9>}SnUYmt
zvBL=i;L$W834JuP=9@f|NKQ21D;LI<qT!B(1-_q+*3MXckbSCm0z&ijj4*uXnizq&
zxXB$G#OLEo^2r?uV#OB~I%_4mYofz4s<&cUl+bFdRBni&XRHpA%-QUN{ZyyAHL9#H
z{U+wJcgzD*5%whT$&Lik1?4J(e2PoCdoL1T2ZVew=kbT#4}4nf<CtM@iKRU+>Fuh0
zPq#6#V3_%2KZ!EM#4_qE=>z-c&fK2P+%^pN1M|QO>~^xoF($%Jt5Q>a*yzE7Bjf1Y
z;u9!6;t^hXApaO`T{RawRT*zoyK4IjqG{yTEa;<N_KTTEskQaqcg`Fen6oj~6hCH~
zOupya93_s#CQBj-XGKu20La_YP4uwGHl6fvV3P8J_{r!)OHcoPZ!9@?v(&=Fzez8C
zdE)!MQR2d?wJ7myM)7?c#b2IEI*JuSB#d_?K}xRVk@T9x)!Tk_uBw2&z)|J$j*fFu
zd88W@3ClI`9nlUTI@x?xZZVUW4V5!SIVo1!Pe&N(!YrO04#yj<anqRg){#_04lJIj
zLH5(Gj}0hAT&;|%xtLum)3YS{RnmVk;Q{o`Je_jAmuiW?lrxhWW9ed}jX;Unz(n}6
zL*s`yQs(vw8OPt0UOML9nV*KXudHm4f^CB3_+EY#^pda=@?M;5T#{a~hHL(~TV%?3
zL25NwUxz_wxzm;_Ki$Pvqgh(lLlUPdt=`~H^2qcY*FCcIk5yRdSqVz^gf!Dsc81Ce
znM_cWPZLh=*jo9;OzUF~8PgBaO~ND#2fl((q?nzD78yoDi~L_eZmo&@iu^xkW!T?A
z-v6)QZD0#r0yE$rf~SMOMDG6pcq?duV;}%uK=%JQ_-*jZU>-aLydSxL6BNK#koSKb
zoB@v@>%SA+4*neZ{$cPIumS!t_!_eO$H8mCjaIII82SBoz;A;$gDtQOZU?ge|0Ccx
z!8kYoei(cX`Tk{K0nCHL;BS%hKMkh9&EO{RbnsWm`=0>!gH7-dvi^s_`@vn{PH+cU
z1kVDphd}686&en@XvO&IY_`s*wtI4FqMImeRc-GboW0+@t;M5bgMyjErbiD93gaae
zF9lE@86)-N)!ZYg<>{bAGpAe!rh-0K#GU>}R?DooJjcfRxl(iabfd)*+02+ZwAz`g
z8smt_o@r^$3ym3wog86plRw4cF&lximB~MfInyE<$Q)B^PFhxip`nhCGvDEH)!7rx
zWhus-R&5SPu4j&`hIsLdpOdHFisQs%1+iF8p5ky-Ii7^&)g$JYJH|R7fVm2W)(c{x
zFB{>{%Bk3ac@}q!-lMW@2%6bnozi(OO>HgU&PgoHV-K1A)7p1<&~=K;+tD~p;B;<%
z2wV`-TFSa_91Wh3C6);wWk0fHPjb%mxuy7M>M_$d{F3FKft|5%O%WmYJ&tqed-ydc
zNz-{c99f-IZ<qBUDgWGWrL142`8*CPz1b~Qqe5s3$LIECV+GVZhdM)PmL9*IBd9Z_
zl7-A8vYbh&XniiJ>Xn~AZN{sRfl)k-uyodH)G+94byqpkSGV$5gApT#?od~%QWWgi
z9v(uC-p^=ioq?4zcjE51Ws_tQRwaocq)WKn-v-I*g4ucGA3#k?%&aIZPlABN)R0Ix
z-;}Kt!7iUHp;AQ1w@S};m3{K4x;D`-o8{?&(Y<M%)1TvCNt~N|vuv~~*xxD>%PfCX
znbW@IYc|@&qo}bLS2%#meCsrt`eiDrc1nwUmE0_;_CPiL*fA|*zE#Q9x2mG5urS7g
zInhHi$?F62k(gFh5^KVMXZkXTiY<3nlueazmAV>i`8%S7!f`C6vL?2x6T7eEz-~|J
zmd88EG4|?s2MWaFseWN41+yaT_bRnYl|GL4_VnbrrR8(D!HHVqYsXL(ONw*qs=|#r
z5@XVwqV|ez8-rz3yXIxkeSB_HABVE>ACZ5(?p!n_A*H99ZAkhS(OqSmyX0keDoapJ
zuI9$Nm8i2BMMjgH40*DZ$u6A-s>R!#Lby+?SDG}#vux^^nV&uvo}HeZzA!nz6rNr<
z8=hJ?zc@QHe`|PgX6a104>Iq=G&XgbdiW?5>Yrw{*Ewqd(vy9LyBx(Fjal7t;%@o@
zBA|PaSu-fgDjF6p`bXB%#8@C5M)KtHZp!+_b`c2^Xgointgc|)BAH1(rpUd)H2qYt
zB(=D{UU@Xxqz104c|nt+Yh_0rAE%5?{+g_$j+~;4hfW_(%?8AfOf&{x;v6JD>a1Hm
zys~Q$Lnx_1eh9M$>}lo(WKMCj3qRPAhoQ><w;{8>`6@oV_5aTx<NpSD16TuJLbm@y
z@FDOHunC?9MCSi8^8Nn-HE;qv3CQ~YzXfjv_ko+hwcuf7{$BuX@OU780XBg61-J%$
z3Yq@_@JjGvAZ!261=oR3BL6=CZUZj>Uqs%QHU4|RkAQ2yr;+s^02|;a_*cmJvcA6s
zzJ+Z62>3lP4Q>P>cpUgTa{kxAAA>&v9|s=;{|@{FxEU0{-yrXAfdwFY0KN*{gm!Nd
z`t8X@tHje%?rhgP*@@7sy@lmg%M%{-)VQK4WC}xX-S%x(G2k-OY1;|jy44WzTjvnF
zJmt+DA$#7~ax0>wnMY;J7Uz5n%P8nk+R3;sc42mqwwZ=90pPWyE(z;EAGIHg)~$K-
zX#ibC<DI`WxU-c%eJ>%)v{~>gTFNHtJ3SLM3x9cq8PP#(z{+20@lA#Eupln*nnL`G
zO9#zSrEYlh=M1WePp(Ed&&FX{$`xHeod)GTmp91BFIlxAxYHK}62x6v*&H3f(q;<*
zj1D7wNmd8rDZH$#>#J7a+j~fs5q06`5sK=8D~0@34Tz?EQWy~U9XhVzU8*dlI4YPZ
z+ZNlFD^-mi5q8%l%`c|BH#x;Lf}t)j2|<nWE>$pu1kBA7u_A|nW72#^>YW&0k~JE=
zGutSY+Y{rbRXv{}at@7^Y|~p&ad2jC@-?*f!ZNcd5#!R!^6x@YaIBU+yJZud%9$^G
z_C$|$oITMnXjBDY(hHO?Z8jKBbx;c8RQaMWPwEag2Xx!Ka#u!sino33w#mk;pCqqR
z;EhITy#WV;A^>Jfoq5g4z+5WnP7JJ6oZHc{%ILw4Q&|Tt3HvuaJj4%e20a>A?``+h
z+lb<FM)t){YpU7V7!41m#pgI#zKAl5pse6cOz^?#)1`=&rA`M8NoqOIL=pucT?K3R
zK`m%B*@2%=F6j)FNpBHJ=76?9I#Nm}ZIVmkNT)j>F;j7RDpYM4&!aiDk;ty&&-*&H
zgqS^@UrXsCB`;gtzC95bJj+JlQ<<&l)(nf5zpw)?+vTfW<Da)%lX;_fXpDcOI)9k4
zws#QAr7Cn9siD_UcNJnkgiTRNJb$R#D@jVmajQuTiz5dQs%-%p@FP{^#A4h<N5#~j
zX3NoStuWw+J)vc>B|S7z3Z@!F<%y9w*_410NIg7!Xg|eSTZ{0;OM#qh>L_8#R*mZG
z_}my!q{%5Mlv~9${lerY8m<Yr12$%!hF8-qOYw8*8l{zXQnksc14%VcBrnMghsK@J
zavYg2u_dRzcA;5x8X1d|@U&F1!qUVqgtt#mFNSl|V(5ppPpwvJu}UCr!~6{5lqQxo
z8}n?yG858(t_dHR8TC^gk?nEmSueN4#Mv^dPlOo?rCU|Trz?5Gs9idB|CcvLrO42e
z!Qe5;OL7m_|6qEI4;|gRAul9vQ45AVygYGe2Sm-KG~{qE#py~5B~ZHO+f6&hFP`{C
zY}XL7QJ3n=Bg=NllxxDe)jPizSq`u7Yd~0`ut&BRdOM-xl=7ycJ*gBbGchslTPGdy
qN+D8^8Mwu|1eR0=p1rB=iM;CebUK%P&b$Ewv=Ob|Wm#aW%l`jH(@OsU

literal 0
HcmV?d00001

diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90
index 19af647680..5d02be29f8 100644
--- a/modules/aerodyn/src/AeroDyn.f90
+++ b/modules/aerodyn/src/AeroDyn.f90
@@ -393,6 +393,9 @@ subroutine AD_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
       p%rotors(iR)%TFin%TFinAFID    = InputFileData%rotors(iR)%TFin%TFinAFID
    enddo
 
+   ! Set pointer to FlowField data
+   if (associated(InitInp%FlowField))  p%FlowField => InitInp%FlowField
+
  
       !............................................................................................
       ! Define and initialize inputs here 
diff --git a/modules/aerodyn/src/AeroDyn_Inflow.f90 b/modules/aerodyn/src/AeroDyn_Inflow.f90
index 16dac6bd5b..bd7bfdc390 100644
--- a/modules/aerodyn/src/AeroDyn_Inflow.f90
+++ b/modules/aerodyn/src/AeroDyn_Inflow.f90
@@ -62,6 +62,10 @@ subroutine ADI_Init(InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
    ! Display the module information
    call DispNVD( ADI_Ver )
 
+   ! Clear writeoutputs
+   if (allocated(InitOut%WriteOutputHdr)) deallocate(InitOut%WriteOutputHdr)
+   if (allocated(InitOut%WriteOutputUnt)) deallocate(InitOut%WriteOutputUnt)
+
    ! Set parameters
    p%dt         = interval
    p%storeHHVel = InitInp%storeHHVel
@@ -69,9 +73,14 @@ subroutine ADI_Init(InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
    p%MHK        = InitInp%AD%MHK
    p%WtrDpth    = InitInp%AD%WtrDpth
 
+   ! --- Initialize Inflow Wind 
+   call ADI_InitInflowWind(InitInp%RootName, InitInp%IW_InitInp, u%AD, OtherState%AD, m%IW, Interval, InitOut_IW, errStat2, errMsg2); if (Failed()) return
+   ! Concatenate AD outputs to IW outputs
+   call concatOutputHeaders(InitOut%WriteOutputHdr, InitOut%WriteOutputUnt, InitOut_IW%WriteOutputHdr, InitOut_IW%WriteOutputUnt, errStat2, errMsg2); if(Failed()) return
+
    ! --- Initialize AeroDyn
-   if (allocated(InitOut%WriteOutputHdr)) deallocate(InitOut%WriteOutputHdr)
-   if (allocated(InitOut%WriteOutputUnt)) deallocate(InitOut%WriteOutputUnt)
+   ! Link InflowWind's FlowField to AeroDyn's FlowField
+   InitInp%AD%FlowField => InitOut_IW%FlowField
 
    call AD_Init(InitInp%AD, u%AD, p%AD, x%AD, xd%AD, z%AD, OtherState%AD, y%AD, m%AD, Interval, InitOut_AD, errStat2, errMsg2); if (Failed()) return
    InitOut%Ver = InitOut_AD%ver
@@ -79,13 +88,6 @@ subroutine ADI_Init(InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
    !TODO: this header is too short if we add more rotors.  Should also add a rotor identifier
    call concatOutputHeaders(InitOut%WriteOutputHdr, InitOut%WriteOutputUnt, InitOut_AD%rotors(1)%WriteOutputHdr, InitOut_AD%rotors(1)%WriteOutputUnt, errStat2, errMsg2); if(Failed()) return
 
-   ! --- Initialize Inflow Wind 
-   call ADI_InitInflowWind(InitInp%RootName, InitInp%IW_InitInp, u%AD, OtherState%AD, m%IW, Interval, InitOut_IW, errStat2, errMsg2); if (Failed()) return
-   ! Concatenate AD outputs to IW outputs
-   call concatOutputHeaders(InitOut%WriteOutputHdr, InitOut%WriteOutputUnt, InitOut_IW%WriteOutputHdr, InitOut_IW%WriteOutputUnt, errStat2, errMsg2); if(Failed()) return
-   ! Link InflowWind's FlowField to AeroDyn's FlowField
-   p%AD%FlowField => InitOut_IW%FlowField
-
    ! --- Initialize grouped outputs
    !TODO: assumes one rotor
    p%NumOuts = p%AD%rotors(1)%NumOuts + p%AD%rotors(1)%BldNd_TotNumOuts + m%IW%p%NumOuts
diff --git a/modules/aerodyn/src/AeroDyn_Registry.txt b/modules/aerodyn/src/AeroDyn_Registry.txt
index 78783c7f1f..e41ce2dacb 100644
--- a/modules/aerodyn/src/AeroDyn_Registry.txt
+++ b/modules/aerodyn/src/AeroDyn_Registry.txt
@@ -104,6 +104,7 @@ typedef ^   InitInputType   ReKi    defPatm     -   -   -   "Default atmospheric
 typedef ^   InitInputType   ReKi    defPvap     -   -   -   "Default vapor pressure from the driver; may be overwritten" Pa
 typedef ^   InitInputType   ReKi    WtrDpth -  -   -    "Water depth" m
 typedef ^   InitInputType   ReKi    MSL2SWL -  -   -    "Offset between still-water level and mean sea level" m
+typedef ^   InitInputType   FlowFieldType *FlowField -  -   -    "Pointer of InflowWinds flow field data type" - 
 
 # This is data defined in the Input File for this module (or could otherwise be passed in)
 # ..... Blade Input file data .....................................................................................................
diff --git a/modules/aerodyn/src/AeroDyn_Types.f90 b/modules/aerodyn/src/AeroDyn_Types.f90
index dcfa08ca35..974f5b5a4a 100644
--- a/modules/aerodyn/src/AeroDyn_Types.f90
+++ b/modules/aerodyn/src/AeroDyn_Types.f90
@@ -124,6 +124,7 @@ MODULE AeroDyn_Types
     REAL(ReKi)  :: defPvap = 0.0_ReKi      !< Default vapor pressure from the driver; may be overwritten [Pa]
     REAL(ReKi)  :: WtrDpth = 0.0_ReKi      !< Water depth [m]
     REAL(ReKi)  :: MSL2SWL = 0.0_ReKi      !< Offset between still-water level and mean sea level [m]
+    TYPE(FlowFieldType) , POINTER :: FlowField => NULL()      !< Pointer of InflowWinds flow field data type [-]
   END TYPE AD_InitInputType
 ! =======================
 ! =========  AD_BladePropsType  =======
@@ -946,6 +947,7 @@ subroutine AD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta
    DstInitInputData%defPvap = SrcInitInputData%defPvap
    DstInitInputData%WtrDpth = SrcInitInputData%WtrDpth
    DstInitInputData%MSL2SWL = SrcInitInputData%MSL2SWL
+   DstInitInputData%FlowField => SrcInitInputData%FlowField
 end subroutine
 
 subroutine AD_DestroyInitInput(InitInputData, ErrStat, ErrMsg)
@@ -970,6 +972,7 @@ subroutine AD_DestroyInitInput(InitInputData, ErrStat, ErrMsg)
    end if
    call NWTC_Library_DestroyFileInfoType(InitInputData%PassedPrimaryInputData, ErrStat2, ErrMsg2)
    call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)
+   nullify(InitInputData%FlowField)
 end subroutine
 
 subroutine AD_PackInitInput(RF, Indata)
@@ -978,6 +981,7 @@ subroutine AD_PackInitInput(RF, Indata)
    character(*), parameter         :: RoutineName = 'AD_PackInitInput'
    integer(B8Ki)   :: i1
    integer(B8Ki)   :: LB(1), UB(1)
+   logical         :: PtrInIndex
    if (RF%ErrStat >= AbortErrLev) return
    call RegPack(RF, allocated(InData%rotors))
    if (allocated(InData%rotors)) then
@@ -1003,6 +1007,13 @@ subroutine AD_PackInitInput(RF, Indata)
    call RegPack(RF, InData%defPvap)
    call RegPack(RF, InData%WtrDpth)
    call RegPack(RF, InData%MSL2SWL)
+   call RegPack(RF, associated(InData%FlowField))
+   if (associated(InData%FlowField)) then
+      call RegPackPointer(RF, c_loc(InData%FlowField), PtrInIndex)
+      if (.not. PtrInIndex) then
+         call IfW_FlowField_PackFlowFieldType(RF, InData%FlowField) 
+      end if
+   end if
    if (RegCheckErr(RF, RoutineName)) return
 end subroutine
 
@@ -1014,6 +1025,8 @@ subroutine AD_UnPackInitInput(RF, OutData)
    integer(B8Ki)   :: LB(1), UB(1)
    integer(IntKi)  :: stat
    logical         :: IsAllocAssoc
+   integer(B8Ki)   :: PtrIdx
+   type(c_ptr)     :: Ptr
    if (RF%ErrStat /= ErrID_None) return
    if (allocated(OutData%rotors)) deallocate(OutData%rotors)
    call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return
@@ -1043,6 +1056,24 @@ subroutine AD_UnPackInitInput(RF, OutData)
    call RegUnpack(RF, OutData%defPvap); if (RegCheckErr(RF, RoutineName)) return
    call RegUnpack(RF, OutData%WtrDpth); if (RegCheckErr(RF, RoutineName)) return
    call RegUnpack(RF, OutData%MSL2SWL); if (RegCheckErr(RF, RoutineName)) return
+   if (associated(OutData%FlowField)) deallocate(OutData%FlowField)
+   call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return
+   if (IsAllocAssoc) then
+      call RegUnpackPointer(RF, Ptr, PtrIdx); if (RegCheckErr(RF, RoutineName)) return
+      if (c_associated(Ptr)) then
+         call c_f_pointer(Ptr, OutData%FlowField)
+      else
+         allocate(OutData%FlowField,stat=stat)
+         if (stat /= 0) then 
+            call SetErrStat(ErrID_Fatal, 'Error allocating OutData%FlowField.', RF%ErrStat, RF%ErrMsg, RoutineName)
+            return
+         end if
+         RF%Pointers(PtrIdx) = c_loc(OutData%FlowField)
+         call IfW_FlowField_UnpackFlowFieldType(RF, OutData%FlowField) ! FlowField 
+      end if
+   else
+      OutData%FlowField => null()
+   end if
 end subroutine
 
 subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, CtrlCode, ErrStat, ErrMsg)
diff --git a/modules/openfast-library/src/FAST_Subs.f90 b/modules/openfast-library/src/FAST_Subs.f90
index 8064c46996..f3dbd998ee 100644
--- a/modules/openfast-library/src/FAST_Subs.f90
+++ b/modules/openfast-library/src/FAST_Subs.f90
@@ -555,9 +555,6 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD,
       CALL SetModuleSubstepTime(Module_IfW, p_FAST, y_FAST, ErrStat2, ErrMsg2)
          CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
 
-      ! Set pointers to flowfield
-      IF (p_FAST%CompAero == Module_AD) AD%p%FlowField => Init%OutData_IfW%FlowField
-
       allocate( y_FAST%Lin%Modules(MODULE_IfW)%Instance(1), stat=ErrStat2)
       if (ErrStat2 /= 0 ) then
          call SetErrStat(ErrID_Fatal, "Error allocating Lin%Modules(IfW).", ErrStat, ErrMsg, RoutineName )
@@ -820,6 +817,9 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD,
          Init%InData_AD%rotors(1)%BladeRootOrientation(:,:,k) = ED%y%BladeRootMotion(k)%RefOrientation(:,:,1)
       end do
 
+      ! Set pointers to flowfield
+      IF (p_FAST%CompInflow == Module_IfW) Init%InData_AD%FlowField => Init%OutData_IfW%FlowField
+
       CALL AD_Init( Init%InData_AD, AD%Input(1), AD%p, AD%x(STATE_CURR), AD%xd(STATE_CURR), AD%z(STATE_CURR), &
                     AD%OtherSt(STATE_CURR), AD%y, AD%m, p_FAST%dt_module( MODULE_AD ), Init%OutData_AD, ErrStat2, ErrMsg2 )
          CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)