/[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.2 by jmc, Mon Jun 18 21:28:52 2007 UTC revision 1.3 by jmc, Mon Oct 1 13:39:53 2007 UTC
# Line 38  CEOP Line 38  CEOP
38  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
39  C     == Local variables ==  C     == Local variables ==
40        INTEGER prec        INTEGER prec
41          INTEGER i,j,bi,bj
42        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
43    
44        WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter        WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter
45        prec = precFloat64        prec = precFloat64
46    
47        IF ( cpl_oldPickup ) THEN  c     IF ( cpl_oldPickup ) THEN
48          CALL READ_REC_3D_RL(fn,prec,1,SSTocn    , 1,myIter,myThid)  C     old pickup from before checkpoint 52m_post
49          CALL READ_REC_3D_RL(fn,prec,1,HeatFlux  , 2,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,SSTocn    , 1,myIter,myThid)
50          CALL READ_REC_3D_RL(fn,prec,1,tauX      , 3,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,HeatFlux  , 2,myIter,myThid)
51          CALL READ_REC_3D_RL(fn,prec,1,tauY      , 4,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,tauX      , 3,myIter,myThid)
52          CALL READ_REC_3D_RL(fn,prec,1,EvMPrFlux , 5,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,tauY      , 4,myIter,myThid)
53          CALL READ_REC_3D_RL(fn,prec,1,RunOffFlux, 6,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,EvMPrFlux , 5,myIter,myThid)
54  c       CALL READ_REC_3D_RL(fn,prec,1,uVelGround, 7,myIter,myThid)  c       CALL READ_REC_3D_RL(fn,prec,1,RunOffFlux, 6,myIter,myThid)
55  c       CALL READ_REC_3D_RL(fn,prec,1,vVelGround, 8,myIter,myThid)  c       RETURN
56  c       CALL READ_REC_3D_RL(fn,prec,1,qLatent   , 9,myIter,myThid)  c     ENDIF
 c       CALL READ_REC_3D_RL(fn,prec,1,qSensible ,10,myIter,myThid)  
 c       CALL READ_REC_3D_RL(fn,prec,1,qLongwave ,11,myIter,myThid)  
 c       CALL READ_REC_3D_RL(fn,prec,1,qShortwave,12,myIter,myThid)  
       ELSE  
57          CALL READ_REC_3D_RL( fn,prec,1, ocMxlD    ,  1, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, ocMxlD    ,  1, myIter,myThid )
58          CALL READ_REC_3D_RL( fn,prec,1, SSTocn    ,  2, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, SSTocn    ,  2, myIter,myThid )
59          CALL READ_REC_3D_RL( fn,prec,1, SSSocn    ,  3, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, SSSocn    ,  3, myIter,myThid )
60          CALL READ_REC_3D_RL( fn,prec,1, vSqocn    ,  4, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, vSqocn    ,  4, myIter,myThid )
61         IF ( cpl_earlyExpImpCall ) THEN        IF ( cpl_earlyExpImpCall ) THEN
62          CALL READ_REC_3D_RL( fn,prec,1, atmSLPr   ,  5, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, atmSLPr   ,  5, myIter,myThid )
63          CALL READ_REC_3D_RL( fn,prec,1, HeatFlux  ,  6, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, HeatFlux  ,  6, myIter,myThid )
64          CALL READ_REC_3D_RL( fn,prec,1, qShortWave,  7, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, qShortWave,  7, myIter,myThid )
# Line 72  c       CALL READ_REC_3D_RL(fn,prec,1,qS Line 69  c       CALL READ_REC_3D_RL(fn,prec,1,qS
69          CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid )
70          CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid )
71          CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid )
72         ENDIF        ENDIF
73         IF ( atmCpl_exchange_DIC ) THEN        IF ( atmCpl_exchange_DIC ) THEN
74          CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid )
75          CALL READ_REC_3D_RL( fn,prec,1, airCO2    , 16, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, airCO2    , 16, myIter,myThid )
76          CALL READ_REC_3D_RL( fn,prec,1, sWSpeed   , 17, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, sWSpeed   , 17, myIter,myThid )
77          CALL READ_REC_3D_RL( fn,prec,1, fracIce   , 18, myIter,myThid )          CALL READ_REC_3D_RL( fn,prec,1, fracIce   , 18, myIter,myThid )
78         ENDIF        ENDIF
79    
80          IF ( cpl_oldPickup .AND. cpl_earlyExpImpCall ) THEN
81            _BARRIER
82    C-    EmP & RunOff were (before checkpoint59h) in m/s , but are now in kg/m2/s:
83            DO bj = myByLo(myThid), myByHi(myThid)
84             DO bi = myBxLo(myThid), myBxHi(myThid)
85              DO j=1-Oly,sNy+Oly
86               DO i=1-Olx,sNx+Olx
87                EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh
88                RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh
89               ENDDO
90              ENDDO
91             ENDDO
92            ENDDO
93        ENDIF        ENDIF
94    
95  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22