/[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.3 by cheisey, Tue Dec 17 19:47: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    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22