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

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

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

revision 1.6 by molod, Thu Oct 7 01:20:47 2004 UTC revision 1.7 by molod, Thu Oct 7 03:20:56 2004 UTC
# Line 81  C--   Write fields as consecutive record Line 81  C--   Write fields as consecutive record
81       .                                                          myThid)       .                                                          myThid)
82        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_lw,7,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_lw,7,myIter,
83       .                                                          myThid)       .                                                          myThid)
84        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_sw,8,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,lwlz,8,myIter,
85       .                                                          myThid)       .                                                          myThid)
86        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_sw,9,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_sw,9,myIter,
87       .                                                          myThid)       .                                                          myThid)
88        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_sw,10,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_sw,10,myIter,
89       .                                                          myThid)       .                                                          myThid)
90        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavelw,11,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_sw,11,myIter,
91       .                                                          myThid)       .                                                          myThid)
92        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavesw,12,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,swlz,12,myIter,
93       .                                                          myThid)       .                                                          myThid)
94        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavelw,13,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavelw,13,myIter,
95       .                                                          myThid)       .                                                          myThid)
96        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,14,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavesw,14,myIter,
97         .                                                          myThid)
98          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavelw,15,myIter,
99         .                                                          myThid)
100          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,16,myIter,
101       .                                                          myThid)       .                                                          myThid)
102    
103        do bj = 1,Nsy        do bj = 1,Nsy
104        do bi = 1,Nsx        do bi = 1,Nsx
105        do j = 1-OLy,sNy+OLy        do j = 1,sNy
106        do i = 1-OLx,sNx+OLx        do i = 1,sNx
107         temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)         temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)
108         temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj)         temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj)
109         temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj)         temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj)
# Line 116  C--   Write fields as consecutive record Line 120  C--   Write fields as consecutive record
120        temp(6,1,4,1,1) = float(imstturbsw)        temp(6,1,4,1,1) = float(imstturbsw)
121        temp(7,1,4,1,1) = float(imstturblw)        temp(7,1,4,1,1) = float(imstturblw)
122    
123        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,temp,15,myIter,myThid)        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,17,myIter,myThid)
124    
125        RETURN        RETURN
126        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22