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 ================================================================== |
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 |
|
|