C $Header: /u/gcmpack/MITgcm/pkg/atm2d/atm2d_read_pickup.F,v 1.3 2009/08/27 18:00:01 jmc Exp $
C $Name:  $

#include "ctrparam.h"
#include "ATM2D_OPTIONS.h"

C     !INTERFACE:
      SUBROUTINE ATM2D_READ_PICKUP( myThid )
C     *==========================================================*
C     | Read couple flux pickup, which contains fluxes for the   |
C     | initial ocean step and seaice growth/melt step. Called   |
C     | from the "normal" place (atm2d_init_vars).               |
C     *==========================================================*
        IMPLICIT NONE

#include "ATMSIZE.h"
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     === Global SeaIce Variables ===
#include "THSICE_VARS.h"

C     === Atmos/Ocean/Seaice Interface Variables ===
#include "ATM2D_VARS.h"


C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid - Thread no. that called this routine.
      INTEGER myThid

C     LOCAL VARIABLES:
      CHARACTER*(MAX_LEN_FNAM) fn
      INTEGER prec

      IF (startTime.NE.baseTime .OR. nIter0.NE.0) THEN

        prec=precFloat64

        WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',nIter0

        CALL READ_REC_3D_RL(fn,prec,1,pass_slp,      1, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_qnet,     2, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_solarnet, 3, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_fu,       4, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_fv,       5, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_precip,   6, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_evap,     7, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_runoff,   8, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed,   9, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2,    10, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid)

        CALL READ_REC_3D_RL(fn,prec,1,sHeating,     12, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,flxCndBt,     13, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm,  14, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,snowPrc,      15, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm,     16, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,icFlxSw,      17, nIter0, myThid)
        CALL READ_REC_3D_RL(fn,prec,1,siceAlb,      18, nIter0, myThid)

      ENDIF

      RETURN
      END