/[MITgcm]/MITgcm/pkg/seaice/seaice_model.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_model.F

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

revision 1.13 by dimitri, Thu Nov 13 06:35:15 2003 UTC revision 1.14 by dimitri, Sun Dec 14 04:56:18 2003 UTC
# Line 56  C     i,j,bi,bj - Loop counters Line 56  C     i,j,bi,bj - Loop counters
56  #ifdef SEAICE_EXTERNAL_FORCING  #ifdef SEAICE_EXTERNAL_FORCING
57  C--   Atmospheric state and runoff are from  C--   Atmospheric state and runoff are from
58  C     pkg/exf, which does not update edges.  C     pkg/exf, which does not update edges.
59           _EXCH_XY_R8( uwind,  myThid )        CALL EXCH_UV_XY_RL(uwind,vwind,.TRUE.,myThid)
60           _EXCH_XY_R8( vwind,  myThid )        _EXCH_XY_R8( atemp,  myThid )
61           _EXCH_XY_R8( atemp,  myThid )        _EXCH_XY_R8( aqh,    myThid )
62           _EXCH_XY_R8( aqh,    myThid )        _EXCH_XY_R8( lwdown, myThid )
63           _EXCH_XY_R8( lwdown, myThid )        _EXCH_XY_R8( swdown, mythid )
64           _EXCH_XY_R8( swdown, mythid )        _EXCH_XY_R8( precip, myThid )
65           _EXCH_XY_R8( precip, myThid )        _EXCH_XY_R8( evap,   myThid )
66           _EXCH_XY_R8( evap,   myThid )        _EXCH_XY_R8( runoff, myThid )
          _EXCH_XY_R8( runoff, myThid )  
67  #else /* SEAICE_EXTERNAL_FORCING */  #else /* SEAICE_EXTERNAL_FORCING */
68  C--   Load atmospheric state and runoff.  C--   Load atmospheric state and runoff.
69        CALL SEAICE_GET_FORCING ( myTime, myIter, myThid )        CALL SEAICE_GET_FORCING ( myTime, myIter, myThid )
# Line 120  C     MUST CALL GROWTH ONLY AFTER CALLIN Line 119  C     MUST CALL GROWTH ONLY AFTER CALLIN
119        CALL GROWTH( myTime, myIter, myThid)        CALL GROWTH( myTime, myIter, myThid)
120    
121  C--   Update overlap regions for a bunch of stuff  C--   Update overlap regions for a bunch of stuff
122         _BARRIER        _BARRIER
123         CALL SEAICE_EXCH( HEFF, myThid )        CALL SEAICE_EXCH( HEFF, myThid )
124         CALL SEAICE_EXCH( AREA, myThid )        CALL SEAICE_EXCH( AREA, myThid )
125         _EXCH_XY_R4(fu   , myThid )        CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)
126         _EXCH_XY_R4(fv   , myThid )        _EXCH_XY_R4(EmPmR, myThid )
127         _EXCH_XY_R4(EmPmR, myThid )        _EXCH_XY_R4(Qnet , myThid )
128         _EXCH_XY_R4(Qnet , myThid )        _EXCH_XY_R4(surfaceTendencyTice, myThid )
        _EXCH_XY_R4(surfaceTendencyTice, myThid )  
129  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
130         _EXCH_XY_R4(Qsw  , myThid )        _EXCH_XY_R4(Qsw  , myThid )
131  #endif  #endif
132         _EXCH_XYZ_R8(theta , myThid )        _EXCH_XYZ_R8(theta , myThid )
133    
134  C--   Sea ice diagnostics.  C--   Sea ice diagnostics.
135        CALL SEAICE_DO_DIAGS( myTime, myIter, myThid )        CALL SEAICE_DO_DIAGS( myTime, myIter, myThid )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22