/[MITgcm]/MITgcm/pkg/exf/exf_mapfields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_mapfields.F

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

revision 1.2 by heimbach, Tue Nov 12 20:34:41 2002 UTC revision 1.4 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 49  c Line 49  c
49  c              - sign change of ustress/vstress incorporated into  c              - sign change of ustress/vstress incorporated into
50  c                scaling factors scal_ust, scal_vst  c                scaling factors scal_ust, scal_vst
51  c  c
52    c              Dimitris Menemenlis, menemenlis@jpl.nasa.gov 20-Dec-2002
53    c
54    c              - removed: empmr(i,j,bi,bj) = scal_prc*precip(i,j,bi,bj)
55    c
56  c     ==================================================================  c     ==================================================================
57  c     SUBROUTINE exf_mapfields  c     SUBROUTINE exf_mapfields
58  c     ==================================================================  c     ==================================================================
# Line 125  c             Heat flux. Line 129  c             Heat flux.
129            do j = jmin,jmax            do j = jmin,jmax
130              do i = imin,imax              do i = imin,imax
131  c             Salt flux.  c             Salt flux.
 #if (defined (ALLOW_BULKFORMULAE)  && defined (ALLOW_ATM_TEMP))  
               empmr(i,j,bi,bj) = scal_prc*precip(i,j,bi,bj)  
 #else  
132                empmr(i,j,bi,bj) = scal_sfl*sflux(i,j,bi,bj)                empmr(i,j,bi,bj) = scal_sfl*sflux(i,j,bi,bj)
 #endif  
133              enddo              enddo
134            enddo            enddo
135    
# Line 229  c     Update the tile edges. Line 229  c     Update the tile edges.
229    
230        _EXCH_XY_R4(  qnet, mythid )        _EXCH_XY_R4(  qnet, mythid )
231        _EXCH_XY_R4( empmr, mythid )        _EXCH_XY_R4( empmr, mythid )
232        _EXCH_XY_R4(    fu, mythid )  c      _EXCH_XY_R4(    fu, mythid )
233        _EXCH_XY_R4(    fv, mythid )  c      _EXCH_XY_R4(    fv, mythid )
234           CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
235  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
236        _EXCH_XY_R4(   qsw, mythid )        _EXCH_XY_R4(   qsw, mythid )
237  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22