/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_read_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_read_pickup.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 18:55:49 2006 UTC revision 1.2 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 5  C     !INTERFACE: Line 5  C     !INTERFACE:
5        SUBROUTINE ATM2D_READ_PICKUP( myThid )        SUBROUTINE ATM2D_READ_PICKUP( myThid )
6  C     *==========================================================*  C     *==========================================================*
7  C     | Read couple flux pickup, which contains fluxes for the   |  C     | Read couple flux pickup, which contains fluxes for the   |
8  C     | initial ocean step and seaice growth/melt step.          |  C     | initial ocean step and seaice growth/melt step. Called   |
9    C     | from the "normal" place (atm2d_init_vars).               |
10  C     *==========================================================*  C     *==========================================================*
11          IMPLICIT NONE          IMPLICIT NONE
12    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22