/[MITgcm]/MITgcm_contrib/gael/pkg/smooth/smooth_init2D.F
ViewVC logotype

Diff of /MITgcm_contrib/gael/pkg/smooth/smooth_init2D.F

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

revision 1.1 by gforget, Tue Jun 19 18:23:18 2007 UTC revision 1.2 by gforget, Fri Oct 16 03:36:34 2009 UTC
# Line 37  c   2) in general case: need to compute Line 37  c   2) in general case: need to compute
37       & wc01_2D_Lx,1,mythid)       & wc01_2D_Lx,1,mythid)
38        call mdsreadfield(fnamegeneric,64,'RL',1,        call mdsreadfield(fnamegeneric,64,'RL',1,
39       & wc01_2D_Ly,2,mythid)       & wc01_2D_Ly,2,mythid)
40        _EXCH_XY_R8 ( wc01_2D_Lx, myThid )        _EXCH_XY_RL ( wc01_2D_Lx, myThid )
41        _EXCH_XY_R8 ( wc01_2D_Ly, myThid )        _EXCH_XY_RL ( wc01_2D_Ly, myThid )
42        else        else
43        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
44         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 65  c   2) in general case: need to compute Line 65  c   2) in general case: need to compute
65         ENDDO         ENDDO
66        ENDDO        ENDDO
67    
68        _EXCH_XY_R8 ( diffKhwc01_2D_x , myThid )        _EXCH_XY_RL ( diffKhwc01_2D_x , myThid )
69        _EXCH_XY_R8 ( diffKhwc01_2D_y , myThid )        _EXCH_XY_RL ( diffKhwc01_2D_y , myThid )
70    
71              WRITE(standardMessageUnit,'(A,2I4,/,2f5.2)')              WRITE(standardMessageUnit,'(A,2I4,/,2f5.2)')
72       & 'smooth 2D default parameters: ',       & 'smooth 2D default parameters: ',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22