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

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

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

revision 1.12 by molod, Tue Jul 13 21:11:08 2004 UTC revision 1.13 by molod, Tue Jul 20 16:24:49 2004 UTC
# Line 50  C                 10:  DARK DESERT Line 50  C                 10:  DARK DESERT
50  C                100:  OCEAN  C                100:  OCEAN
51  C***********************************************************************  C***********************************************************************
52        implicit none        implicit none
53    #include "PACKAGES_CONFIG.h"
54  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
56    
# Line 104  C*************************************** Line 105  C***************************************
105    
106        biglobal=bi+(myXGlobalLo-1)/im        biglobal=bi+(myXGlobalLo-1)/im
107        bjglobal=bj+(myYGlobalLo-1)/jm        bjglobal=bj+(myYGlobalLo-1)/jm
108                                                                                    #ifdef _BYTESWAPIO
109          call MDS_BYTESWAPR4(im*jm*maxtyp,veg_32(1,1,1,biglobal,bjglobal))
110    #endif
111        do k = 1,maxtyp        do k = 1,maxtyp
112        do j = 1,jm        do j = 1,jm
113        do i = 1,im        do i = 1,im
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22