File |
Line number |
Procedure |
Code |
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
./pkg/fizhi/step_fizhi_corr.F |
197 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj) |
./pkg/fizhi/step_fizhi_corr.F |
244 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj) = |
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
./pkg/fizhi/step_fizhi_corr.F |
49 |
STEP_FIZHI_CORR |
_RL sdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |