/[MITgcm]/MITgcm_contrib/ESMF/global_ocean.128x60x15/code/driver_run.F
ViewVC logotype

Diff of /MITgcm_contrib/ESMF/global_ocean.128x60x15/code/driver_run.F

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

revision 1.1 by cnh, Tue Mar 30 03:58:56 2004 UTC revision 1.2 by cnh, Thu May 12 02:25:50 2005 UTC
# Line 14  C     !INTERFACE: Line 14  C     !INTERFACE:
14       I              atm_FWFlux,       I              atm_FWFlux,
15       I              atm_Hatm,       I              atm_Hatm,
16       O              ocn_SSTocn, ocn_Hocn,       O              ocn_SSTocn, ocn_Hocn,
17         O              ocn_SSTocn, ocn_Hocn,
18         O              ocn_uVelocn, ocn_Vvelocn,
19         O              ocn_rVolTop,
20       U              myCurrentTime, myCurrentIter,       U              myCurrentTime, myCurrentIter,
21       U              iLoop,       U              iLoop,
22       I              nTimeS, myThid)       I              nTimeS, myThid)
# Line 43  C     == Global variables == Line 46  C     == Global variables ==
46  #include "PARAMS.h"  #include "PARAMS.h"
47  #include "GRID.h"  #include "GRID.h"
48  #include "OCNCPL.h"  #include "OCNCPL.h"
49    #include "DYNVARS.h"
50    
51  C     == Routine arguments ==  C     == Routine arguments ==
52        _RL atm_HeatFlux(   1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_HeatFlux(   1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 58  C     == Routine arguments == Line 62  C     == Routine arguments ==
62        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
63        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)
64        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
65          _RL ocn_uVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
66          _RL ocn_vVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
67          _RL ocn_rVolTop(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
68  C      myThid :: Thread number for this instance of the routine  C      myThid :: Thread number for this instance of the routine
69        INTEGER myThid        INTEGER myThid
70        INTEGER myCurrentIter        INTEGER myCurrentIter
# Line 139  C     Fill the export fields Line 146  C     Fill the export fields
146           DO i=1,sNx           DO i=1,sNx
147            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)
148            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)
149              ocn_uVelocn(  i,j) = uVel(     i,j,bi,bj,1)
150              ocn_vVelocn(  i,j) = vVel(     i,j,bi,bj,1)
151              ocn_rVolTop(  i,j) =
152         &     _recip_hFacC(i,j,1,bi,bj)*recip_drF(1)*recip_rA(i,j,bi,bj)
153           ENDDO           ENDDO
154          ENDDO          ENDDO
155         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22