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

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

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

revision 1.14 by jmc, Sat Sep 6 17:42:27 2008 UTC revision 1.15 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 156  C--- Bo = d/d_p(Phi_surf) = tRef_surf*d/ Line 156  C--- Bo = d/d_p(Phi_surf) = tRef_surf*d/
156  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
157    
158  C--   Update overlap regions (jmc: is it really needed ?)  C--   Update overlap regions (jmc: is it really needed ?)
159        _EXCH_XY_R8(Bo_surf, myThid)        _EXCH_XY_RL(Bo_surf, myThid)
160        _EXCH_XY_R8(recip_Bo, myThid)        _EXCH_XY_RL(recip_Bo, myThid)
161    
162        IF ( ( buoyancyRelation .EQ. 'ATMOSPHERIC' .OR.        IF ( ( buoyancyRelation .EQ. 'ATMOSPHERIC' .OR.
163       &       buoyancyRelation .EQ. 'OCEANICP'         )       &       buoyancyRelation .EQ. 'OCEANICP'         )
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22