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

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

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

revision 1.13 by jmc, Tue Sep 4 16:49:44 2007 UTC revision 1.14 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 173  C-    end bi,bj loop. Line 173  C-    end bi,bj loop.
173        ENDDO        ENDDO
174    
175  C-- Global diagnostic :  C-- Global diagnostic :
176        _GLOBAL_SUM_R8( adjust_nb_pt , myThid )        _GLOBAL_SUM_RL( adjust_nb_pt , myThid )
177        _GLOBAL_SUM_R8( adjust_volum , myThid )        _GLOBAL_SUM_RL( adjust_volum , myThid )
178        IF (adjust_nb_pt .GE.1.) THEN        IF (adjust_nb_pt .GE.1.) THEN
179          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
180          WRITE(standardMessageUnit,'(2(A,I10),1PE16.8)')          WRITE(standardMessageUnit,'(2(A,I10),1PE16.8)')
# Line 183  C-- Global diagnostic : Line 183  C-- Global diagnostic :
183          _END_MASTER( myThid )          _END_MASTER( myThid )
184        ENDIF        ENDIF
185    
186        _EXCH_XY_R4(hFac_surfC, myThid )        _EXCH_XY_RS(hFac_surfC, myThid )
187        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)
188    
189  C-----  C-----
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22