pkg/atm2d/atm2d_read_pickup.F

09a6f3668a Jeff*0001 #include "ctrparam.h"
                0002 #include "ATM2D_OPTIONS.h"
                0003
                0004 C     !INTERFACE:
                0005       SUBROUTINE ATM2D_READ_PICKUP( myThid )
                0006 C     *==========================================================*
                0007 C     | Read couple flux pickup, which contains fluxes for the   |
                0008 C     | initial ocean step and seaice growth/melt step. Called   |
                0009 C     | from the "normal" place (atm2d_init_vars).               |
                0010 C     *==========================================================*
                0011         IMPLICIT NONE
                0012
                0013 #include "ATMSIZE.h"
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017
                0018 C     === Global SeaIce Variables ===
                0019 #include "THSICE_VARS.h"
                0020
                0021 C     === Atmos/Ocean/Seaice Interface Variables ===
                0022 #include "ATM2D_VARS.h"
                0023
                0024
                0025 C     !INPUT/OUTPUT PARAMETERS:
                0026 C     === Routine arguments ===
                0027 C     myThid - Thread no. that called this routine.
                0028       INTEGER myThid
                0029
                0030 C     LOCAL VARIABLES:
                0031       CHARACTER*(MAX_LEN_FNAM) fn
                0032       INTEGER prec
                0033
                0034       IF (startTime.NE.baseTime .OR. nIter0.NE.0) THEN
                0035
                0036         prec=precFloat64
                0037
                0038         WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',nIter0
                0039
9f24b0ff20 Jean*0040         CALL READ_REC_3D_RL(fn,prec,1,pass_slp,      1, nIter0, myThid)
                0041         CALL READ_REC_3D_RL(fn,prec,1,pass_qnet,     2, nIter0, myThid)
                0042         CALL READ_REC_3D_RL(fn,prec,1,pass_solarnet, 3, nIter0, myThid)
                0043         CALL READ_REC_3D_RL(fn,prec,1,pass_fu,       4, nIter0, myThid)
                0044         CALL READ_REC_3D_RL(fn,prec,1,pass_fv,       5, nIter0, myThid)
                0045         CALL READ_REC_3D_RL(fn,prec,1,pass_precip,   6, nIter0, myThid)
                0046         CALL READ_REC_3D_RL(fn,prec,1,pass_evap,     7, nIter0, myThid)
                0047         CALL READ_REC_3D_RL(fn,prec,1,pass_runoff,   8, nIter0, myThid)
                0048         CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed,   9, nIter0, myThid)
                0049         CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2,    10, nIter0, myThid)
                0050         CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid)
                0051
                0052         CALL READ_REC_3D_RL(fn,prec,1,sHeating,     12, nIter0, myThid)
                0053         CALL READ_REC_3D_RL(fn,prec,1,flxCndBt,     13, nIter0, myThid)
                0054         CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm,  14, nIter0, myThid)
                0055         CALL READ_REC_3D_RL(fn,prec,1,snowPrc,      15, nIter0, myThid)
                0056         CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm,     16, nIter0, myThid)
                0057         CALL READ_REC_3D_RL(fn,prec,1,icFlxSw,      17, nIter0, myThid)
                0058         CALL READ_REC_3D_RL(fn,prec,1,siceAlb,      18, nIter0, myThid)
09a6f3668a Jeff*0059
                0060       ENDIF
                0061
                0062       RETURN
                0063       END
                0064