/[MITgcm]/MITgcm/pkg/seaice/seaice_budget_ocean.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_budget_ocean.F

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

revision 1.7 by dimitri, Thu Jun 4 17:27:17 2009 UTC revision 1.8 by mlosch, Wed Jun 24 08:25:05 2009 UTC
# Line 118  C     Is this necessary? Line 118  C     Is this necessary?
118          atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj))          atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj))
119  # endif  # endif
120  #ifdef SEAICE_CLIM_AIR  #ifdef SEAICE_CLIM_AIR
121          atempLoc (I,J) = AREA(I,J,1,bi,bj) *          atempLoc (I,J) = AREA(I,J,bi,bj) *
122       &       ( fac * SEAICE_clim_atemp(count0) + (1-fac) *       &       ( fac * SEAICE_clim_atemp(count0) + (1-fac) *
123       &       SEAICE_clim_atemp(count1) ) +       &       SEAICE_clim_atemp(count1) ) +
124       &       (1-AREA(I,J,1,bi,bj)) * atempLoc(I,J)       &       (1-AREA(I,J,bi,bj)) * atempLoc(I,J)
125          aqhLoc (I,J)   = AREA(I,J,1,bi,bj) *          aqhLoc (I,J)   = AREA(I,J,bi,bj) *
126       &       ( fac * SEAICE_clim_aqh(count0) + (1-fac) *       &       ( fac * SEAICE_clim_aqh(count0) + (1-fac) *
127       &       SEAICE_clim_aqh(count1) ) +       &       SEAICE_clim_aqh(count1) ) +
128       &       (1-AREA(I,J,1,bi,bj)) * aqh(I,J,bi,bj)       &       (1-AREA(I,J,bi,bj)) * aqh(I,J,bi,bj)
129  #endif /* SEAICE_CLIM_AIR */  #endif /* SEAICE_CLIM_AIR */
130  # ifdef ALLOW_DOWNWARD_RADIATION  # ifdef ALLOW_DOWNWARD_RADIATION
131          lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj))          lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj))
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22