/[MITgcm]/MITgcm_contrib/jscott/igsm/src/ocean4atm.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/ocean4atm.F

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

revision 1.1 by jscott, Fri Aug 11 19:35:31 2006 UTC revision 1.2 by jscott, Tue Aug 22 20:25:52 2006 UTC
# Line 2  Line 2 
2  #include "ctrparam.h"  #include "ctrparam.h"
3          subroutine ocean4atm          subroutine ocean4atm
4  #include "BD2G04.COM"  #include "BD2G04.COM"
5  #include "AGRID.COM"  #include "AGRID.h"
6    
7           do j=1,jm0           do j=1,jm0
8             ODATA(1,j,1)=mmsst(j)             ODATA(1,j,1)=mmsst(j)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22