#include "dims.h"
      SUBROUTINE CMPSOLGAR
      use cons_module,only: len1,kmax 
      implicit none
C     ****
c rwcl, rwclo, and n2o imported from Solomon-Garcia 2d model
c (see solgar_import). Output arrays are in threadprivate
! common (crates_tdep.h).
c
#include "params.h"
#include "crates_tdep.h"
#include "phys.h"
#include "fimport.h"
!
! rwn2o, rwcl, and rwclo columns are in /fimport/
! in fimport.h. These are shared memory and are
! defined at all latitudes by solgar_import every 
! time step.
!
! rmn2o, rmcl, and rmclo are in /metas/ (crates_tdep.h)
! They are in taskcommon and are redundant in longitude.
!
! Local:
      integer :: k,i
!
      do  K=1,KMAX
	do  I=1,LEN1
          RMN2O(I,K) = RWN2O(j,K)
	  RMCL(I,K)  = RWCL(j,K)
	  RMCLO(I,K) = RWCLO(j,K)
        enddo
      enddo
      RETURN
      END
C