/[MITgcm]/MITgcm/pkg/atm_compon_interf/atm_cpl_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/atm_cpl_read_pickup.F

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

revision 1.1 by jmc, Fri May 21 19:59:38 2004 UTC revision 1.2 by jmc, Mon Jun 18 21:28:52 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: ATM_CPL_READ_PICKUP
8    C     !INTERFACE:
9        SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid )        SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid )
10    
11    C     !DESCRIPTION: \bv
12  C     *==========================================================*  C     *==========================================================*
13  C     | SUBROUTINE ATM_CPL_READ_PICKUP  C     | SUBROUTINE ATM_CPL_READ_PICKUP
14  C     | o Reads fields from a pickup file for a restart  C     | o Reads fields from a pickup file for a restart
15  C     *==========================================================*  C     *==========================================================*
16  C     *==========================================================*  C     *==========================================================*
17    C     \ev
18    
19    C     !USES:
20        IMPLICIT NONE        IMPLICIT NONE
21    
22  C     == Global variables ==  C     == Global variables ==
# Line 17  C     == Global variables == Line 24  C     == Global variables ==
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
27    #include "ATMIDS.h"
28  #include "ATMCPL.h"  #include "ATMCPL.h"
29    
30    C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myIter  :: time-step number  C     myIter  :: Current time-step number
33  C     myThid  :: Thread number for this instance of the routine  C     myThid  :: my Thread Id number
34        INTEGER myIter        INTEGER myIter
35        INTEGER myThid        INTEGER myThid
36  CEndOfInterface  CEOP
37    
38  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
39  C     == Local variables ==  C     == Local variables ==
# Line 35  C     == Local variables == Line 44  C     == Local variables ==
44        prec = precFloat64        prec = precFloat64
45    
46        IF ( cpl_oldPickup ) THEN        IF ( cpl_oldPickup ) THEN
47          CALL MDSREADFIELD(fn,prec,'RL',1,SSTocn    , 1,myThid)          CALL READ_REC_3D_RL(fn,prec,1,SSTocn    , 1,myIter,myThid)
48          CALL MDSREADFIELD(fn,prec,'RL',1,HeatFlux  , 2,myThid)          CALL READ_REC_3D_RL(fn,prec,1,HeatFlux  , 2,myIter,myThid)
49          CALL MDSREADFIELD(fn,prec,'RL',1,tauX      , 3,myThid)          CALL READ_REC_3D_RL(fn,prec,1,tauX      , 3,myIter,myThid)
50          CALL MDSREADFIELD(fn,prec,'RL',1,tauY      , 4,myThid)          CALL READ_REC_3D_RL(fn,prec,1,tauY      , 4,myIter,myThid)
51          CALL MDSREADFIELD(fn,prec,'RL',1,EvMPrFlux , 5,myThid)          CALL READ_REC_3D_RL(fn,prec,1,EvMPrFlux , 5,myIter,myThid)
52          CALL MDSREADFIELD(fn,prec,'RL',1,RunOffFlux, 6,myThid)          CALL READ_REC_3D_RL(fn,prec,1,RunOffFlux, 6,myIter,myThid)
53  c       CALL MDSREADFIELD(fn,prec,'RL',1,uVelGround, 7,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,uVelGround, 7,myIter,myThid)
54  c       CALL MDSREADFIELD(fn,prec,'RL',1,vVelGround, 8,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,vVelGround, 8,myIter,myThid)
55  c       CALL MDSREADFIELD(fn,prec,'RL',1,qLatent   , 9,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,qLatent   , 9,myIter,myThid)
56  c       CALL MDSREADFIELD(fn,prec,'RL',1,qSensible ,10,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,qSensible ,10,myIter,myThid)
57  c       CALL MDSREADFIELD(fn,prec,'RL',1,qLongwave ,11,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,qLongwave ,11,myIter,myThid)
58  c       CALL MDSREADFIELD(fn,prec,'RL',1,qShortwave,12,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,qShortwave,12,myIter,myThid)
59        ELSE        ELSE
60          CALL MDSREADFIELD(fn,prec,'RL',1, ocMxlD   , 1,myThid)          CALL READ_REC_3D_RL( fn,prec,1, ocMxlD    ,  1, myIter,myThid )
61          CALL MDSREADFIELD(fn,prec,'RL',1, SSTocn   , 2,myThid)          CALL READ_REC_3D_RL( fn,prec,1, SSTocn    ,  2, myIter,myThid )
62          CALL MDSREADFIELD(fn,prec,'RL',1, SSSocn   , 3,myThid)          CALL READ_REC_3D_RL( fn,prec,1, SSSocn    ,  3, myIter,myThid )
63          CALL MDSREADFIELD(fn,prec,'RL',1, vSqocn   , 4,myThid)          CALL READ_REC_3D_RL( fn,prec,1, vSqocn    ,  4, myIter,myThid )
64         IF ( cpl_earlyExpImpCall ) THEN         IF ( cpl_earlyExpImpCall ) THEN
65          CALL MDSREADFIELD(fn,prec,'RL',1,atmSLPr   , 5,myThid)          CALL READ_REC_3D_RL( fn,prec,1, atmSLPr   ,  5, myIter,myThid )
66          CALL MDSREADFIELD(fn,prec,'RL',1,HeatFlux  , 6,myThid)          CALL READ_REC_3D_RL( fn,prec,1, HeatFlux  ,  6, myIter,myThid )
67          CALL MDSREADFIELD(fn,prec,'RL',1,qShortWave, 7,myThid)          CALL READ_REC_3D_RL( fn,prec,1, qShortWave,  7, myIter,myThid )
68          CALL MDSREADFIELD(fn,prec,'RL',1,tauX      , 8,myThid)          CALL READ_REC_3D_RL( fn,prec,1, tauX      ,  8, myIter,myThid )
69          CALL MDSREADFIELD(fn,prec,'RL',1,tauY      , 9,myThid)          CALL READ_REC_3D_RL( fn,prec,1, tauY      ,  9, myIter,myThid )
70          CALL MDSREADFIELD(fn,prec,'RL',1,EvMPrFlux ,10,myThid)          CALL READ_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid )
71          CALL MDSREADFIELD(fn,prec,'RL',1,RunOffFlux,11,myThid)          CALL READ_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid )
72          CALL MDSREADFIELD(fn,prec,'RL',1,RunOffEnFx,12,myThid)          CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid )
73          CALL MDSREADFIELD(fn,prec,'RL',1,iceSaltFlx,13,myThid)          CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid )
74          CALL MDSREADFIELD(fn,prec,'RL',1,seaIceMass,14,myThid)          CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid )
75           ENDIF
76           IF ( atmCpl_exchange_DIC ) THEN
77            CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid )
78            CALL READ_REC_3D_RL( fn,prec,1, airCO2    , 16, myIter,myThid )
79            CALL READ_REC_3D_RL( fn,prec,1, sWSpeed   , 17, myIter,myThid )
80            CALL READ_REC_3D_RL( fn,prec,1, fracIce   , 18, myIter,myThid )
81         ENDIF         ENDIF
82        ENDIF        ENDIF
83    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22