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

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

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

revision 1.11 by jmc, Mon Sep 22 17:55:16 2008 UTC revision 1.12 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 133  C --      end k loop Line 133  C --      end k loop
133  Cml        WRITE(msgBuf,'(I10.10)') npiter  Cml        WRITE(msgBuf,'(I10.10)') npiter
134  Cml        CALL WRITE_FLD_XYZ_RL( 'POLD.',msgBuf,pold,npiter,myThid)  Cml        CALL WRITE_FLD_XYZ_RL( 'POLD.',msgBuf,pold,npiter,myThid)
135  Cml        CALL WRITE_FLD_XYZ_RL( 'PINI.',msgBuf,pressure,npiter,myThid)  Cml        CALL WRITE_FLD_XYZ_RL( 'PINI.',msgBuf,pressure,npiter,myThid)
136          _GLOBAL_SUM_R8( rmspp, myThid )          _GLOBAL_SUM_RL( rmspp, myThid )
137          _GLOBAL_SUM_R8( count, myThid )          _GLOBAL_SUM_RL( count, myThid )
138          IF ( count .EQ. 0. ) THEN          IF ( count .EQ. 0. ) THEN
139             rmspp = 0. _d 0             rmspp = 0. _d 0
140          ELSE          ELSE
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22