/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jahn, Wed Dec 4 21:21:32 2013 UTC
# Line 33  C     !LOCAL VARIABLES: Line 33  C     !LOCAL VARIABLES:
33        _RL planck, c, hc, oavo, hcoavo, rlamm        _RL planck, c, hc, oavo, hcoavo, rlamm
34  #endif  #endif
35    
36          _BEGIN_MASTER(myThid)
37    
38  #ifdef ALLOW_SPECTRAL  #ifdef ALLOW_SPECTRAL
39  c   Quanta conversion  c   Quanta conversion
40        planck = 6.6256 _d -34   !Plancks constant J sec        planck = 6.6256 _d -34   !Plancks constant J sec
# Line 46  c   Quanta conversion Line 48  c   Quanta conversion
48        enddo        enddo
49  #endif  #endif
50    
51          _END_MASTER(myThid)
52    
53  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
54        call QUOTA_INIT_FIXED(myThid)        call QUOTA_INIT_FIXED(myThid)
55  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22