/[MITgcm]/MITgcm/pkg/fizhi/fizhi_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.12 by edhill, Sun Oct 10 06:08:49 2004 UTC revision 1.13 by molod, Thu Oct 14 22:11:42 2004 UTC
# Line 81  C       Read fields as consecutive recor Line 81  C       Read fields as consecutive recor
81          snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj)          snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj)
82         enddo         enddo
83         enddo         enddo
84    
85           iras(bi,bj)       = nint(temp(1,1,4,bi,bj))
86           nlwcld(bi,bj)     = nint(temp(2,1,4,bi,bj))
87           nlwlz(bi,bj)      = nint(temp(3,1,4,bi,bj))
88           nswcld(bi,bj)     = nint(temp(4,1,4,bi,bj))
89           nswlz(bi,bj)      = nint(temp(5,1,4,bi,bj))
90           imstturbsw(bi,bj) = nint(temp(6,1,4,bi,bj))
91           imstturblw(bi,bj) = nint(temp(7,1,4,bi,bj))
92    
93         enddo         enddo
94         enddo         enddo
95    
        iras       = nint(temp(1,1,4,1,1))  
        nlwcld     = nint(temp(2,1,4,1,1))  
        nlwlz      = nint(temp(3,1,4,1,1))  
        nswcld     = nint(temp(4,1,4,1,1))  
        nswlz      = nint(temp(5,1,4,1,1))  
        imstturbsw = nint(temp(6,1,4,1,1))  
        imstturblw = nint(temp(7,1,4,1,1))  
   
96        ENDIF        ENDIF
97    
98  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22