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

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

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

revision 1.15 by mlosch, Fri Nov 1 22:00:33 2002 UTC revision 1.16 by mlosch, Sat Nov 2 20:07:39 2002 UTC
# Line 99  C--       CONVECT not needed with KPP mi Line 99  C--       CONVECT not needed with KPP mi
99            kBottom = Nr            kBottom = Nr
100            kDir    = 1            kDir    = 1
101           ELSEIF ( buoyancyRelation .eq. 'OCEANICP' ) THEN           ELSEIF ( buoyancyRelation .eq. 'OCEANICP' ) THEN
102            kTop    = Nr-1            kTop    = Nr
103            kBottom =  1            kBottom =  2
104            kDir    = -1            kDir    = -1
105           ELSEIF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN           ELSEIF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN
106            kTop    = Nr-1            kTop    = Nr
107            kBottom =  1            kBottom =  2
108            kDir    = -1            kDir    = -1
109           ELSE           ELSE
110            STOP 'CONVECTIVE_ADJUSTMENT: We should never reach this point'            STOP 'CONVECTIVE_ADJUSTMENT: We should never reach this point'
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22