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

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

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

revision 1.21 by jmc, Sat Dec 6 00:08:35 2003 UTC revision 1.22 by jmc, Thu Dec 11 21:23:00 2003 UTC
# Line 52  C     number of surface interface layer Line 52  C     number of surface interface layer
52        INTEGER kSurface        INTEGER kSurface
53  CEOP  CEOP
54    
55        if ( buoyancyRelation .eq. 'AMTMOSPHERIC' ) then        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then
56         kSurface = 0         kSurface = 0
57        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then
58         kSurface = Nr         kSurface = Nr
# Line 133  C     number of surface interface layer Line 133  C     number of surface interface layer
133        INTEGER kSurface        INTEGER kSurface
134  CEOP  CEOP
135    
136        if ( buoyancyRelation .eq. 'AMTMOSPHERIC' ) then        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then
137         kSurface = 0         kSurface = 0
138        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then
139         kSurface = Nr         kSurface = Nr
# Line 221  C     number of surface interface layer Line 221  C     number of surface interface layer
221        INTEGER kSurface        INTEGER kSurface
222  CEOP  CEOP
223    
224        if ( buoyancyRelation .eq. 'AMTMOSPHERIC' ) then        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then
225         kSurface = 0         kSurface = 0
226        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then
227         kSurface = Nr         kSurface = Nr
# Line 319  C     number of surface interface layer Line 319  C     number of surface interface layer
319        INTEGER kSurface        INTEGER kSurface
320  CEOP  CEOP
321    
322        if ( buoyancyRelation .eq. 'AMTMOSPHERIC' ) then        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then
323         kSurface = 0         kSurface = 0
324        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then
325         kSurface = Nr         kSurface = Nr
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22