anchor.diff:      ! Modified variables
       ! ------------------
       INTEGER (KIND=i4),                                INTENT (INOUT) :: locerrstat
  -    REAL    (KIND=r8), DIMENSION(1:nx,0:nt-1, CmETA), INTENT (INOUT) :: climatology, local_temperature
  +    REAL    (KIND=r8), DIMENSION(1:nx,0:nt-1, CmETA), INTENT (INOUT) :: climatology
       REAL    (KIND=r8), DIMENSION(1:nx,0:nt-1),        INTENT (INOUT) :: local_psurf  
   
       ! ---------------
  
positive.code:        ! Now it is only needed to interpolate to the pixels of the granule.
         ! It was read there to obtain the dimensions of the number of levels.
         ! ---------------------------------------------------------------------
         CALL omi_climatology (climatology, cli_psurface, cli_temperature, terrain_height, &
              lat, lon, nt, nx, xtrange, locerrstat)
         
         ! -------------------------------------
  
negative.code:     REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1)       :: amfgeo
      REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1)       :: l2cfr, l2ctp
      REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1)       :: albedo, cli_psurface
      REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1,CmETA) :: climatology
      REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1,CmETA) :: scattw !, akernels
  
  
  