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

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

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

revision 1.4 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.5 by dimitri, Wed Mar 3 05:17:44 2004 UTC
# Line 263  c     swflux = - ( 1 - albedo ) * swdown Line 263  c     swflux = - ( 1 - albedo ) * swdown
263    
264  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
265        if ( swfluxfile .EQ. ' ' .AND. swdownfile .NE. ' ' )        if ( swfluxfile .EQ. ' ' .AND. swdownfile .NE. ' ' )
266       &     swflux(i,j,bi,bj) = -0.9 _d 0 * swdown(i,j,bi,bj)       &     swflux(i,j,bi,bj) = -(1.0-exf_albedo) * swdown(i,j,bi,bj)
267        if ( swfluxfile .NE. ' ' .AND. swdownfile .EQ. ' ' )        if ( swfluxfile .NE. ' ' .AND. swdownfile .EQ. ' ' )
268       &     swdown(i,j,bi,bj) = -1.111111 _d 0 * swflux(i,j,bi,bj)       &     swdown(i,j,bi,bj) = -swflux(i,j,bi,bj) / (1.0-exf_albedo)
269  #endif  #endif
270    
271  #endif /* ALLOW_DOWNWARD_RADIATION */  #endif /* ALLOW_DOWNWARD_RADIATION */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22