/[MITgcm]/MITgcm/pkg/dic/dic_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_readparms.F

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

revision 1.9 by jmc, Tue Apr 28 23:27:24 2009 UTC revision 1.10 by jmc, Sun Apr 11 20:54:49 2010 UTC
# Line 134  C---+----1----+----2----+----3----+----4 Line 134  C---+----1----+----2----+----3----+----4
134         dic_int2    = 0         dic_int2    = 0
135         dic_int3    = 0         dic_int3    = 0
136         dic_int4    = 0         dic_int4    = 0
137         dic_pCO2    = 0. _d 0         dic_pCO2    = 278. _d -6
138  c default periodic forcing to same as for physics  c default periodic forcing to same as for physics
139         DIC_forcingPeriod = externForcingPeriod         DIC_forcingPeriod = externForcingPeriod
140         DIC_forcingCycle  = externForcingCycle         DIC_forcingCycle  = externForcingCycle
# Line 282  C- namelist DIC_FORCING Line 282  C- namelist DIC_FORCING
282    
283  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
284    
285          IF ( dic_int1.EQ.0 .AND. dic_pCO2.NE.278. _d -6 ) THEN
286            WRITE(msgBuf,'(A)')
287         &    'DIC_READPARMS: cannot change default dic_pCO2 if dic_int1=0'
288            CALL PRINT_ERROR( msgBuf, myThid )
289            STOP 'ABNORMAL END: S/R DIC_READPARMS: dic_pCO2 error'
290          ENDIF
291    
292        _END_MASTER(myThid)        _END_MASTER(myThid)
293    
294  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22