/[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.5 by molod, Thu Oct 7 00:06:09 2004 UTC revision 1.6 by molod, Thu Oct 7 01:20:47 2004 UTC
# Line 42  C     !LOCAL VARIABLES: Line 42  C     !LOCAL VARIABLES:
42  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
43  C     prec    :: precision of pickup files  C     prec    :: precision of pickup files
44  C     lgf     :: flag to write "global" files  C     lgf     :: flag to write "global" files
45        INTEGER prec, iChar, lChar        INTEGER prec, iChara, 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)        _RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy)
# Line 62  C---+----1----+----2----+----3----+----4 Line 62  C---+----1----+----2----+----3----+----4
62        enddo        enddo
63    
64        lChar = 0        lChar = 0
65        DO iChar = 1,len(suff)        DO iChara = 1,len(suff)
66         IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar         IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara
67        ENDDO        ENDDO
68        WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar)        WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar)
69        prec = precFloat64        prec = precFloat64
# Line 96  C--   Write fields as consecutive record Line 96  C--   Write fields as consecutive record
96        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,14,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,14,myIter,
97       .                                                          myThid)       .                                                          myThid)
98    
99        temp(1,1,1,1,1) = float(iras)        do bj = 1,Nsy
100        temp(2,1,1,1,1) = float(nlwcld)        do bi = 1,Nsx
101        temp(3,1,1,1,1) = float(nlwlz)        do j = 1-OLy,sNy+OLy
102        temp(4,1,1,1,1) = float(nswcld)        do i = 1-OLx,sNx+OLx
103        temp(5,1,1,1,1) = float(nswlz)         temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)
104        temp(6,1,1,1,1) = float(imstturbsw)         temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj)
105        temp(7,1,1,1,1) = float(imstturblw)         temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj)
106        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,15,myIter,myThid)        enddo
107          enddo
108          enddo
109          enddo
110    
111          temp(1,1,4,1,1) = float(iras)
112          temp(2,1,4,1,1) = float(nlwcld)
113          temp(3,1,4,1,1) = float(nlwlz)
114          temp(4,1,4,1,1) = float(nswcld)
115          temp(5,1,4,1,1) = float(nswlz)
116          temp(6,1,4,1,1) = float(imstturbsw)
117          temp(7,1,4,1,1) = float(imstturblw)
118    
119          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,temp,15,myIter,myThid)
120    
121        RETURN        RETURN
122        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22