
I intended to start with generals & idealized configurations, performing some experiments with the old version of code from Patrick Penven. Then I decided to update myself and I loaded version 2.2. It is working!


Thanks,
Inga
Code: Select all
dr00=r00-rho0
Tt=t(i,j,k,nrhs,itemp)
# ifdef SALINITY
Ts=max(t(i,j,k,nrhs,isalt), 0.)
sqrtTs=sqrt(Ts)
# else
Ts=0.0
sqrtTs=0.0
# endif
rho1(i,j,k)=( dr00 +Tt*( r01+Tt*( r02+Tt*( r03+Tt*(
& r04+Tt*r05 ))))
& +Ts*( r10+Tt*( r11+Tt*( r12+Tt*(
& r13+Tt*r14 )))
& +sqrtTs*(rS0+Tt*(
& rS1+Tt*rS2 ))+Ts*r20 ))
# ifdef MASKING
& *rmask(i,j)
# endif
K0= Tt*( K01+Tt*( K02+Tt*( K03+Tt*K04 )))
& +Ts*( K10+Tt*( K11+Tt*( K12+Tt*K13 ))
& +sqrtTs*( KS0+Tt*( KS1+Tt*KS2 )))
# ifdef SPLIT_EOS
qp1(i,j,k)=( 0.000649 + 0.1*(K00*rho1(i,j,k)-rho0*K0)
& /(K00*(K00+K0)) )
# ifdef MASKING
& *rmask(i,j)
# endif
......
\..