/[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.3 by cnh, Thu May 12 03:00:39 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_uVelocn, ocn_Vvelocn,
18         O              ocn_rVolTop,
19       U              myCurrentTime, myCurrentIter,       U              myCurrentTime, myCurrentIter,
20       U              iLoop,       U              iLoop,
21       I              nTimeS, myThid)       I              nTimeS, myThid)
# Line 43  C     == Global variables == Line 45  C     == Global variables ==
45  #include "PARAMS.h"  #include "PARAMS.h"
46  #include "GRID.h"  #include "GRID.h"
47  #include "OCNCPL.h"  #include "OCNCPL.h"
48    #include "DYNVARS.h"
49    
50  C     == Routine arguments ==  C     == Routine arguments ==
51        _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 61  C     == Routine arguments ==
61        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
62        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)
63        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
64          _RL ocn_uVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
65          _RL ocn_vVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
66          _RL ocn_rVolTop(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
67  C      myThid :: Thread number for this instance of the routine  C      myThid :: Thread number for this instance of the routine
68        INTEGER myThid        INTEGER myThid
69        INTEGER myCurrentIter        INTEGER myCurrentIter
# Line 139  C     Fill the export fields Line 145  C     Fill the export fields
145           DO i=1,sNx           DO i=1,sNx
146            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)
147            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)
148              ocn_uVelocn(  i,j) = uVel(     i,j,bi,bj,1)
149              ocn_vVelocn(  i,j) = vVel(     i,j,bi,bj,1)
150              ocn_rVolTop(  i,j) =
151         &     _recip_hFacC(i,j,1,bi,bj)*recip_drF(1)*recip_rA(i,j,bi,bj)
152           ENDDO           ENDDO
153          ENDDO          ENDDO
154         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22