/[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.4 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.5 by molod, Thu Oct 7 00:06:09 2004 UTC
# Line 45  C     lgf     :: flag to write "global" Line 45  C     lgf     :: flag to write "global"
45        INTEGER prec, iChar, lChar        INTEGER prec, iChar, lChar
46        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
47        LOGICAL lgf        LOGICAL lgf
48          _RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy)
49          integer i,j,k,bi,bj
50    
51  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
52          do bj = 1,Nsy
53          do bi = 1,Nsx
54          do k = 1,Nrphys
55          do j = 1-OLy,sNy+OLy
56          do i = 1-OLx,sNx+OLx
57           temp(i,j,k,bi,bj) = 0.
58          enddo
59          enddo
60          enddo
61          enddo
62          enddo
63    
64        lChar = 0        lChar = 0
65        DO iChar = 1,len(suff)        DO iChar = 1,len(suff)
# Line 62  C--   Write fields as consecutive record Line 75  C--   Write fields as consecutive record
75        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,thphy,3,myIter,myThid)        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,thphy,3,myIter,myThid)
76        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,sphy,4,myIter,myThid)        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,sphy,4,myIter,myThid)
77    
78          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_lw,5,myIter,
79         .                                                          myThid)
80          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_lw,6,myIter,
81         .                                                          myThid)
82          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_lw,7,myIter,
83         .                                                          myThid)
84          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_sw,8,myIter,
85         .                                                          myThid)
86          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_sw,9,myIter,
87         .                                                          myThid)
88          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_sw,10,myIter,
89         .                                                          myThid)
90          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavelw,11,myIter,
91         .                                                          myThid)
92          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavesw,12,myIter,
93         .                                                          myThid)
94          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavelw,13,myIter,
95         .                                                          myThid)
96          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,14,myIter,
97         .                                                          myThid)
98    
99          temp(1,1,1,1,1) = float(iras)
100          temp(2,1,1,1,1) = float(nlwcld)
101          temp(3,1,1,1,1) = float(nlwlz)
102          temp(4,1,1,1,1) = float(nswcld)
103          temp(5,1,1,1,1) = float(nswlz)
104          temp(6,1,1,1,1) = float(imstturbsw)
105          temp(7,1,1,1,1) = float(imstturblw)
106          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,15,myIter,myThid)
107    
108        RETURN        RETURN
109        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22