/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_forcing.F

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

revision 1.4 by heimbach, Fri Sep 28 15:15:53 2001 UTC revision 1.4.6.1 by heimbach, Fri Mar 7 03:06:41 2003 UTC
# Line 66  CEOP Line 66  CEOP
66        jthi = mybyhi(mythid)        jthi = mybyhi(mythid)
67        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
68        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
69        jmin = 1-oly        jmin = 1
70        jmax = sny+oly        jmax = sny
71        imin = 1-olx        imin = 1
72        imax = snx+olx        imax = snx
73    
74        doglobalread = .false.        doglobalread = .false.
75        ladinit      = .false.        ladinit      = .false.
# Line 188  c--   sst0. Line 188  c--   sst0.
188        enddo        enddo
189  #endif  #endif
190    
191    #if (defined (ALLOW_TAUU0_CONTROL) || defined (ALLOW_TAUV0_CONTROL))
192           CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)
193    #endif
194    #ifdef ALLOW_SFLUX0_CONTROL
195           _EXCH_XY_R4(EmPmR, myThid )
196    #endif
197    #ifdef ALLOW_HFLUX0_CONTROL
198           _EXCH_XY_R4(Qnet,  myThid )
199    #endif
200    #ifdef ALLOW_SST0_CONTROL
201           _EXCH_XY_R4(SST,   myThid )
202    #endif
203    #ifdef ALLOW_SSS0_CONTROL
204           _EXCH_XY_R4(SSS,   myThid )
205    #endif
206    
207        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.6.1
  ViewVC Help
Powered by ViewVC 1.1.22