| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/AtoC.F |
35 |
ATOC |
_RL fieldin1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
|
./pkg/fizhi/AtoC.F |
46 |
ATOC |
U fieldin1, fieldin2, |
|
./pkg/fizhi/AtoC.F |
56 |
ATOC |
tmpfld1(i,j) = fieldin1(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 |
37 |
CTOA |
_RL fieldin1(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 |
58 |
CTOA |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
5 |
CTOA |
subroutine CTOA(myThid,fieldin1,fieldin2,mask1,mask2,idim1,idim2, |