/[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.12 by edhill, Thu Oct 7 01:48:07 2004 UTC revision 1.13 by edhill, Sun Oct 10 06:08:49 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "FIZHI_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
5    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
6  CBOP  CBOP
7  C     !ROUTINE: FIZHI_WRITE_VEGTILES  C     !ROUTINE: FIZHI_WRITE_VEGTILES
8  C     !INTERFACE:  C     !INTERFACE:
# Line 18  C     !USES: Line 19  C     !USES:
19  #include "fizhi_land_coms.h"  #include "fizhi_land_coms.h"
20  #include "fizhi_earth_coms.h"  #include "fizhi_earth_coms.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #ifdef ALLOW_MNC  #include "PARAMS.h"
 #include "MNC_PARAMS.h"  
 #endif  
23  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
24  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
25  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
# Line 101  C       fizhi_earth_coms.h Line 100  C       fizhi_earth_coms.h
100        ENDIF        ENDIF
101  #else /*  Next Peice for not ALLOW_MNC  */  #else /*  Next Peice for not ALLOW_MNC  */
102    
103    
104        call MDSFINDUNIT( iunit, mythid )        call MDSFINDUNIT( iunit, mythid )
105        length_of_rec=MDS_RECLEN( fileprec, nchp, mythid )        length_of_rec=MDS_RECLEN( fileprec, nchp, mythid )
106    
# Line 275  C End of bi bj loop Line 275  C End of bi bj loop
275    
276    
277  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
   
278  CBOP  CBOP
279  C     !ROUTINE: FIZHI_READ_VEGTILES  C     !ROUTINE: FIZHI_READ_VEGTILES
280  C     !INTERFACE:  C     !INTERFACE:
# Line 292  C     !USES: Line 291  C     !USES:
291  #include "fizhi_land_coms.h"  #include "fizhi_land_coms.h"
292  #include "fizhi_earth_coms.h"  #include "fizhi_earth_coms.h"
293  #include "EEPARAMS.h"  #include "EEPARAMS.h"
294  #ifdef ALLOW_MNC  #include "PARAMS.h"
 #include "MNC_PARAMS.h"  
 #endif  
295  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
296  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
297  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22