--- MITgcm/pkg/fizhi/fizhi_init_veg.F	2004/06/09 18:54:20	1.8
+++ MITgcm/pkg/fizhi/fizhi_init_veg.F	2004/06/10 20:17:17	1.10
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_veg.F,v 1.8 2004/06/09 18:54:20 molod Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_veg.F,v 1.10 2004/06/10 20:17:17 molod Exp $
 C $Name:  $
 
       subroutine fizhi_init_veg(mythid,vegdata,im,jm,Nsx,Nsy,Nxg,Nyg,
@@ -49,14 +49,15 @@
 C                100:  OCEAN
 C***********************************************************************
       implicit none
+#include "CPP_OPTIONS.h"
 #include "EEPARAMS.h"
 
       integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg
       integer surftype(im,jm,maxtyp,Nsx,Nsy)
       integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)
-      real tilefrac(im,jm,maxtyp,Nsx,Nsy)
-      real lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy)
-      real chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
+      _RL tilefrac(im,jm,maxtyp,Nsx,Nsy)
+      _RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy)
+      _RL chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
       character*40 vegdata
       integer imdata,jmdata,Nxgdata,Nygdata
       integer nchplocal,nchpland,biglobal,bjglobal