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

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

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

revision 1.22 by mlosch, Mon Nov 30 15:18:21 2009 UTC revision 1.23 by jmc, Sun Jan 17 21:55:48 2010 UTC
# Line 241  c      CALL EXCH_S3D_RL( cg3d_s, Nr, myT Line 241  c      CALL EXCH_S3D_RL( cg3d_s, Nr, myT
241         CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid )         CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid )
242         CALL GLOBAL_SUM_TILE_RL( errTile,    err,    myThid )         CALL GLOBAL_SUM_TILE_RL( errTile,    err,    myThid )
243        IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN        IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
244          CALL WRITE_FLD_S3D_RS(          CALL WRITE_FLD_S3D_RL(
245       I        'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid )       I        'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid )
246        ENDIF        ENDIF
247    
# Line 531  c       ENDIF Line 531  c       ENDIF
531     11 CONTINUE     11 CONTINUE
532    
533        IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN        IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
534          CALL WRITE_FLD_S3D_RS(          CALL WRITE_FLD_S3D_RL(
535       I        'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid )       I        'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid )
536        ENDIF        ENDIF
537    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22