/[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.9 by molod, Thu Oct 7 01:20:47 2004 UTC revision 1.10 by molod, Thu Oct 7 03:20:56 2004 UTC
# Line 45  C     k       :: loop index Line 45  C     k       :: loop index
45        INTEGER i, prec        INTEGER i, prec
46        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
47        _RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy)        _RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy)
48        integer i,j,bi,bj        integer j,bi,bj
49    
50        DO i = 1,MAX_LEN_FNAM        DO i = 1,MAX_LEN_FNAM
51          fn(i:i) = ' '          fn(i:i) = ' '
# Line 61  C       Read fields as consecutive recor Line 61  C       Read fields as consecutive recor
61         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)
62         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)
63         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)
64         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_lw,5,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_lw,5,myThid)
65         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_lw,6,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_lw,6,myThid)
66         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_lw,7,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_lw,7,myThid)
67         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_sw,8,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,lwlz,8,myThid)
68         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_sw,9,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_sw,9,myThid)
69         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_sw,10,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_sw,10,myThid)
70         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavelw,11,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_sw,11,myThid)
71         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavesw,12,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,swlz,12,myThid)
72         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavelw,13,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavelw,13,myThid)
73         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,14,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavesw,14,myThid)
74         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,15,myIter,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavelw,15,myThid)
75           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid)
76           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid)
77    
78         do bj = 1,Nsy         do bj = 1,Nsy
79         do bi = 1,Nsx         do bi = 1,Nsx
# Line 85  C       Read fields as consecutive recor Line 87  C       Read fields as consecutive recor
87         enddo         enddo
88         enddo         enddo
89    
90         iras = nint(temp(1,1,4,1,1))         iras       = nint(temp(1,1,4,1,1))
91         nlwcld = nint(temp(2,1,4,1,1))         nlwcld     = nint(temp(2,1,4,1,1))
92         nlwlz = nint(temp(3,1,4,1,1))         nlwlz      = nint(temp(3,1,4,1,1))
93         nswcld = nint(temp(4,1,4,1,1))         nswcld     = nint(temp(4,1,4,1,1))
94         nswlz = nint(temp(5,1,4,1,1))         nswlz      = nint(temp(5,1,4,1,1))
95         imstturbsw = nint(temp(6,1,4,1,1))         imstturbsw = nint(temp(6,1,4,1,1))
96         imstturblw = nint(temp(7,1,4,1,1))         imstturblw = nint(temp(7,1,4,1,1))
97    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22