/[MITgcm]/MITgcm/model/src/ini_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_forcing.F

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

revision 1.24 by heimbach, Tue Nov 12 20:39:46 2002 UTC revision 1.25 by heimbach, Fri Nov 15 03:01:21 2002 UTC
# Line 56  CEOP Line 56  CEOP
56  #endif  #endif
57  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
58            pload           (i,j,bi,bj) = 0. _d 0            pload           (i,j,bi,bj) = 0. _d 0
 #else  
           pload           (1,1,1,1)   = 0. _d 0  
59  #endif  #endif
60            surfaceTendencyU(i,j,bi,bj) = 0. _d 0            surfaceTendencyU(i,j,bi,bj) = 0. _d 0
61            surfaceTendencyV(i,j,bi,bj) = 0. _d 0            surfaceTendencyV(i,j,bi,bj) = 0. _d 0
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22