/[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.27 by jmc, Sun Jul 18 15:34:34 2004 UTC revision 1.28 by jmc, Tue Oct 19 02:39:58 2004 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. 'ATMOSPHERIC' ) then        IF ( fluidIsAir ) THEN
56         kSurface = 0         kSurface = 0
57        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        ELSEIF ( usingPCoords ) THEN
58         kSurface = Nr         kSurface = Nr
59        else        ELSE
60         kSurface = 1         kSurface = 1
61        endif        ENDIF
62    
63  C--   Forcing term  C--   Forcing term
64  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 140  C     number of surface interface layer Line 140  C     number of surface interface layer
140        INTEGER kSurface        INTEGER kSurface
141  CEOP  CEOP
142    
143        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then        IF ( fluidIsAir ) THEN
144         kSurface = 0         kSurface = 0
145        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        ELSEIF ( usingPCoords ) THEN
146         kSurface = Nr         kSurface = Nr
147        else        ELSE
148         kSurface = 1         kSurface = 1
149        endif        ENDIF
150    
151  C--   Forcing term  C--   Forcing term
152  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 236  C     number of surface interface layer Line 236  C     number of surface interface layer
236  #endif  #endif
237  CEOP  CEOP
238    
239        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then        IF ( fluidIsAir ) THEN
240         kSurface = 0         kSurface = 0
241        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        ELSEIF ( usingPCoords ) THEN
242         kSurface = Nr         kSurface = Nr
243        else        ELSE
244         kSurface = 1         kSurface = 1
245        endif        ENDIF
246    
247  C--   Forcing term  C--   Forcing term
248  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 350  C     number of surface interface layer Line 350  C     number of surface interface layer
350        INTEGER kSurface        INTEGER kSurface
351  CEOP  CEOP
352    
353        if ( buoyancyRelation .eq. 'ATMOSPHERIC' ) then        IF ( fluidIsAir ) THEN
354         kSurface = 0         kSurface = 0
355        elseif ( buoyancyRelation .eq. 'OCEANICP' ) then        ELSEIF ( usingPCoords ) THEN
356         kSurface = Nr         kSurface = Nr
357        else        ELSE
358         kSurface = 1         kSurface = 1
359        endif        ENDIF
   
360    
361  C--   Forcing term  C--   Forcing term
362  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22