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 |
|
|
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 |