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, prec,myTime,myIter,myThid) |
9 |
|
|
10 |
C !DESCRIPTION: |
C !DESCRIPTION: |
11 |
|
|
24 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
25 |
|
|
26 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
27 |
CHARACTER*(*) fn |
CHARACTER*(MAX_LEN_FNAM) fn |
28 |
CHARACTER*1 prec |
CHARACTER*1 prec |
29 |
_RL myTime |
_RL myTime |
30 |
INTEGER myIter |
INTEGER myIter |
90 |
CBOP |
CBOP |
91 |
C !ROUTINE: FIZHI_READ_VEGTILES |
C !ROUTINE: FIZHI_READ_VEGTILES |
92 |
C !INTERFACE: |
C !INTERFACE: |
93 |
SUBROUTINE FIZHI_READ_VEGTILES( fn, prec, myTime, myIter, myThid ) |
SUBROUTINE FIZHI_READ_VEGTILES(fn,prec,myTime,myIter,myThid) |
94 |
|
|
95 |
C !DESCRIPTION: |
C !DESCRIPTION: |
96 |
|
|
109 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
110 |
|
|
111 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
112 |
CHARACTER*(*) fn |
CHARACTER*(MAX_LEN_FNAM) fn |
113 |
CHARACTER*1 prec |
CHARACTER*1 prec |
114 |
_RL myTime |
_RL myTime |
115 |
INTEGER myIter |
INTEGER myIter |