| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/AtoC.F |
36 |
ATOC |
_RL fieldin2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
|
./pkg/fizhi/AtoC.F |
46 |
ATOC |
U fieldin1, fieldin2, |
|
./pkg/fizhi/AtoC.F |
57 |
ATOC |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
5 |
ATOC |
subroutine ATOC(myThid,fieldin1,fieldin2,mask,idim1,idim2, |
|
./pkg/fizhi/CtoA.F |
38 |
CTOA |
_RL fieldin2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
|
./pkg/fizhi/CtoA.F |
49 |
CTOA |
call EXCH_UV_XYZ_RL(fieldin1,fieldin2,withSigns,myThid) |
|
./pkg/fizhi/CtoA.F |
59 |
CTOA |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
5 |
CTOA |
subroutine CTOA(myThid,fieldin1,fieldin2,mask1,mask2,idim1,idim2, |