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

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

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

revision 1.3 by molod, Tue Aug 10 15:13:47 2004 UTC revision 1.4 by molod, Wed Aug 18 15:55:21 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5  CBOP  CBOP
6  C     !ROUTINE: FIZHI_WRITE_VEGTILES  C     !ROUTINE: FIZHI_WRITE_VEGTILES
7  C     !INTERFACE:  C     !INTERFACE:
8        SUBROUTINE FIZHI_WRITE_VEGTILES( fn, prec,myTime,myIter,myThid)        SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid)
9    
10  C     !DESCRIPTION:  C     !DESCRIPTION:
11    
# Line 25  C     == Global variables === Line 25  C     == Global variables ===
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
27        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
28        CHARACTER*1 prec        INTEGER pickupflg
29        _RL myTime        _RL myTime
30        INTEGER myIter        INTEGER myIter
31        INTEGER myThid        INTEGER myThid
32    
33  CEOP  CEOP
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35          CHARACTER*1 prec
36        CHARACTER*80 bnam        CHARACTER*80 bnam
37        integer ilst        integer ilst
38        integer i        integer i
# Line 42  C---+----1----+----2----+----3----+----4 Line 43  C---+----1----+----2----+----3----+----4
43          bnam(i:i) = ' '          bnam(i:i) = ' '
44        ENDDO        ENDDO
45        ilst = ILNBLNK(fn)        ilst = ILNBLNK(fn)
46        WRITE(bnam,'(a,a)') 'pickup_vegtiles.', fn(1:ilst)        if(pickupflg.eq.0) then
47           prec = 'D'
48           WRITE(bnam,'(a,a)') 'pickup_vegtiles.', fn(1:ilst)
49          else
50           prec = 'D'
51           WRITE(bnam,'(a,a)') 'state_vegtiles.', fn(1:ilst)
52          endif
53    
54                
55  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22