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

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

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

revision 1.104 by jmc, Wed Sep 28 01:34:43 2005 UTC revision 1.105 by jmc, Tue Oct 11 00:13:51 2005 UTC
# Line 78  C     Coriolis map: Line 78  C     Coriolis map:
78    
79    
80  C--   Set default "physical" parameters  C--   Set default "physical" parameters
       DO K =1,Nr  
        tRef(K) = 30.D0 - FLOAT( K )  
 Cml       sRef(K) = 35.D0  
       ENDDO  
81        nh_Am2              = 1.D0        nh_Am2              = 1.D0
82        gravity             = 9.81D0        gravity             = 9.81D0
83        rhoNil              = 999.8D0        rhoNil              = 999.8D0
Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105
  ViewVC Help
Powered by ViewVC 1.1.22