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

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

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

revision 1.18 by jmc, Mon Apr 16 23:27:21 2007 UTC revision 1.19 by heimbach, Wed Apr 18 13:24:28 2007 UTC
# Line 46  c     == global variables == Line 46  c     == global variables ==
46    
47  #include "EXF_PARAM.h"  #include "EXF_PARAM.h"
48  #include "EXF_CONSTANTS.h"  #include "EXF_CONSTANTS.h"
49    #include "EXF_CLIM_PARAM.h"
50    
51  c     == routine arguments ==  c     == routine arguments ==
52    
# Line 214  c     Loop over tiles. Line 215  c     Loop over tiles.
215             do j = 1,sny             do j = 1,sny
216              do i = 1,snx              do i = 1,snx
217  c     Interpolate linearly onto the  time.  c     Interpolate linearly onto the  time.
218    cph             if ( genfile .EQ. climsstfile ) then
219    cph                if (gen0(i,j,bi,bj) .lt. climtempfreeze) then
220    cph                   gen0(i,j,bi,bj) = climtempfreeze
221    cph                endif
222    cph                if (gen1(i,j,bi,bj) .lt. climtempfreeze) then
223    cph                   gen1(i,j,bi,bj) = climtempfreeze
224    cph                endif
225    cph             endif
226               genfld(i,j,bi,bj) = exf_inscal_gen * (               genfld(i,j,bi,bj) = exf_inscal_gen * (
227       &                          fac * gen0(i,j,bi,bj) +       &                          fac * gen0(i,j,bi,bj) +
228       &              (exf_one - fac) * gen1(i,j,bi,bj) )       &              (exf_one - fac) * gen1(i,j,bi,bj) )
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22