Symbol Description Uses
mask1 7


File Line number Procedure Code
./pkg/fizhi/CtoA.F 35 CTOA 
       _RS mask1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy)
./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,
./pkg/fizhi/CtoA.F 64 CTOA 
          if( (mask1(i,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/CtoA.F 65 CTOA 
     .                               (mask1(i+1,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/CtoA.F 72 CTOA 
     .            ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) )