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

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

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

revision 1.2 by cnh, Sun Sep 6 14:47:43 1998 UTC revision 1.3 by cnh, Wed Oct 28 03:11:36 1998 UTC
# Line 36  C--   == Routine arguments == Line 36  C--   == Routine arguments ==
36  C--   == Local variables ==  C--   == Local variables ==
37        INTEGER i,j        INTEGER i,j
38        _RL refTemp,refSalt,sigRef,tP,sP,deltaSig        _RL refTemp,refSalt,sigRef,tP,sP,deltaSig
 ! ------------------------------------------------------------------------------  
39    
40        IF    ( buoyancyRelation .eq. 'ATMOSPHERIC'  ) THEN        IF    ( buoyancyRelation .eq. 'ATMOSPHERIC'  ) THEN
41    
# Line 56  C--   == Local variables == Line 55  C--   == Local variables ==
55    
56        ELSE        ELSE
57    
58         STOP 'CALC_BUOANCY: variable "buoyancyRelation" has an illegal value'         STOP
59         &'CALC_BUOANCY: variable "buoyancyRelation" has an illegal value'
60    
61        ENDIF        ENDIF
62    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22