/[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.10 by jmc, Tue Oct 9 00:00:00 2007 UTC revision 1.11 by dfer, Tue Jan 15 19:56:27 2008 UTC
# Line 56  C     == Local variables == Line 56  C     == Local variables ==
56        character*( 80)   fnamehflux        character*( 80)   fnamehflux
57        character*( 80)   fnamesss        character*( 80)   fnamesss
58        character*( 80)   fnamesst        character*( 80)   fnamesst
59    cHFLUXM_CONTROL
60          character*( 80)   fnamehfluxm
61    cHFLUXM_CONTROL
62    
63  c     == external ==  c     == external ==
64        integer  ilnblnk        integer  ilnblnk
# Line 190  c--   sst0. Line 193  c--   sst0.
193        enddo        enddo
194  #endif  #endif
195    
196    #ifdef ALLOW_HFLUXM_CONTROL
197    c--   hfluxm.
198          il=ilnblnk( xx_hfluxm_file )
199          write(fnamehfluxm(1:80),'(2a,i10.10)')
200         &     xx_hfluxm_file(1:il),'.',optimcycle
201          call active_read_xy ( fnamehfluxm, tmpfld2d, 1,
202         &                      doglobalread, ladinit, optimcycle,
203         &                      mythid, xx_hfluxm_dummy )
204          do bj = jtlo,jthi
205            do bi = itlo,ithi
206              do j = jmin,jmax
207                do i = imin,imax
208                  Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
209                enddo
210              enddo
211            enddo
212          enddo
213    #endif
214    
215  #if (defined (ALLOW_TAUU0_CONTROL) || defined (ALLOW_TAUV0_CONTROL))  #if (defined (ALLOW_TAUU0_CONTROL) || defined (ALLOW_TAUV0_CONTROL))
216         CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)         CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)
217  #endif  #endif
# Line 205  c--   sst0. Line 227  c--   sst0.
227  #ifdef ALLOW_SSS_CONTROL  #ifdef ALLOW_SSS_CONTROL
228         _EXCH_XY_R4(SSS,   myThid )         _EXCH_XY_R4(SSS,   myThid )
229  #endif  #endif
230    #ifdef ALLOW_HFLUXM_CONTROL
231           _EXCH_XY_R4(Qnetm, myThid )
232    #endif
233    
234        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22