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

Diff of /MITgcm_contrib/ESMF/global_ocean.128x60x15/code/driver_init.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 13  C     !INTERFACE: Line 13  C     !INTERFACE:
13       I              atm_uVelGround, atm_vVelGround,       I              atm_uVelGround, atm_vVelGround,
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       &              )       &              )
20  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
21  C     *==================================================================  C     *==================================================================
# Line 34  C     == Global variables == Line 36  C     == Global variables ==
36  #include "PARAMS.h"  #include "PARAMS.h"
37  #include "GRID.h"  #include "GRID.h"
38  #include "OCNCPL.h"  #include "OCNCPL.h"
39    #include "DYNVARS.h"
40  C     == Routine arguments ==  C     == Routine arguments ==
41        _RL atm_HeatFlux(   1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_HeatFlux(   1-OLx:sNx+OLx,1-OLy:sNy+OLy)
42        _RL atm_TauX(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_TauX(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 48  C     == Routine arguments == Line 51  C     == Routine arguments ==
51        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL atm_Hatm(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
52        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_SSTocn(     1-OLx:sNx+OLx,1-OLy:sNy+OLy)
53        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL ocn_Hocn(       1-OLx:sNx+OLx,1-OLy:sNy+OLy)
54          _RL ocn_uVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
55          _RL ocn_vVelocn(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
56          _RL ocn_rVolTop(    1-OLx:sNx+OLx,1-OLy:sNy+OLy)
57  C     == Local variables ==  C     == Local variables ==
58        INTEGER iLoop        INTEGER iLoop
59        INTEGER myThid        INTEGER myThid
# Line 96  C     Fill the export fields Line 102  C     Fill the export fields
102           DO i=1,sNx           DO i=1,sNx
103            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)            ocn_SSTocn(i,j) = SSTocn2cpl(i,j,bi,bj)
104            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)            ocn_Hocn(  i,j) = R_low(     i,j,bi,bj)
105              ocn_uVelocn(i,j)   = uVel(i,j,bi,bj,1)
106              ocn_vVelocn(i,j)   = vVel(i,j,bi,bj,1)
107              ocn_rVolTop(  i,j) =
108         &     _recip_hFacC(i,j,1,bi,bj)*recip_drF(1)*recip_rA(i,j,bi,bj)
109           ENDDO           ENDDO
110          ENDDO          ENDDO
111         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22