/[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.6 by jmc, Fri Dec 25 04:38:42 2015 UTC revision 1.8 by jmc, Wed Jan 13 21:36:26 2016 UTC
# Line 24  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"
 #include "ATMIDS.h"  
27  #include "ATMCPL.h"  #include "ATMCPL.h"
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 133  c       CALL READ_REC_3D_RL( fn, fp, 1, Line 132  c       CALL READ_REC_3D_RL( fn, fp, 1,
132  c       CALL READ_REC_3D_RL( fn, fp, 1, SSTocn    ,  2, myIter,myThid )  c       CALL READ_REC_3D_RL( fn, fp, 1, SSTocn    ,  2, myIter,myThid )
133  c       CALL READ_REC_3D_RL( fn, fp, 1, SSSocn    ,  3, myIter,myThid )  c       CALL READ_REC_3D_RL( fn, fp, 1, SSSocn    ,  3, myIter,myThid )
134  c       CALL READ_REC_3D_RL( fn, fp, 1, vSqocn    ,  4, myIter,myThid )  c       CALL READ_REC_3D_RL( fn, fp, 1, vSqocn    ,  4, myIter,myThid )
135          CALL READ_REC_3D_RL( fn, fp, 1, atmSLPr   ,  5, myIter,myThid )  c       CALL READ_REC_3D_RL( fn, fp, 1, atmSLPr   ,  5, myIter,myThid )
136          CALL READ_REC_3D_RL( fn, fp, 1, HeatFlux  ,  6, myIter,myThid )          CALL READ_REC_3D_RL( fn, fp, 1, HeatFlux  ,  6, myIter,myThid )
137          CALL READ_REC_3D_RL( fn, fp, 1, qShortWave,  7, myIter,myThid )          CALL READ_REC_3D_RL( fn, fp, 1, qShortWave,  7, myIter,myThid )
138          CALL READ_REC_3D_RL( fn, fp, 1, tauX      ,  8, myIter,myThid )          CALL READ_REC_3D_RL( fn, fp, 1, tauX      ,  8, myIter,myThid )
# Line 153  c        CALL READ_REC_3D_RL( fn,fp, 1, Line 152  c        CALL READ_REC_3D_RL( fn,fp, 1,
152           CALL READ_REC_3D_RL( fn,fp, 1, airCO2    , 16, myIter,myThid )           CALL READ_REC_3D_RL( fn,fp, 1, airCO2    , 16, myIter,myThid )
153           CALL READ_REC_3D_RL( fn,fp, 1, sWSpeed   , 17, myIter,myThid )           CALL READ_REC_3D_RL( fn,fp, 1, sWSpeed   , 17, myIter,myThid )
154  # ifdef ALLOW_THSICE  # ifdef ALLOW_THSICE
155  c        CALL READ_REC_3D_RL( fn,fp, 1, fracIce   , 18, myIter,myThid )  c        CALL READ_REC_3D_RL( fn,fp,1,sIceFrac_cpl, 18, myIter,myThid )
156  # endif /* ALLOW_THSICE */  # endif /* ALLOW_THSICE */
157          ENDIF          ENDIF
158  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
# Line 165  C---    read ATM_CPL 3-D fields for rest Line 164  C---    read ATM_CPL 3-D fields for rest
164          nj = nj*Nr          nj = nj*Nr
165    
166  C---    read ATM_CPL 2-D fields for restart  C---    read ATM_CPL 2-D fields for restart
         CALL READ_MFLDS_3D_RL( 'SLPress ', atmSLPr,  
      &                                 nj, fp, 1 , myIter, myThid )  
167          CALL READ_MFLDS_3D_RL( 'qHeatFlx', HeatFlux,          CALL READ_MFLDS_3D_RL( 'qHeatFlx', HeatFlux,
168       &                                 nj, fp, 1 , myIter, myThid )       &                                 nj, fp, 1 , myIter, myThid )
169          CALL READ_MFLDS_3D_RL( 'qShortW ', qShortWave,          CALL READ_MFLDS_3D_RL( 'qShortW ', qShortWave,
# Line 190  C---    read ATM_CPL 2-D fields for rest Line 187  C---    read ATM_CPL 2-D fields for rest
187           CALL READ_MFLDS_3D_RL('saltFlux', iceSaltFlx,           CALL READ_MFLDS_3D_RL('saltFlux', iceSaltFlx,
188       &                                 nj, fp, 1 , myIter, myThid )       &                                 nj, fp, 1 , myIter, myThid )
189          ENDIF          ENDIF
190  c       IF ( atm_cplExch_SaltPl ) THEN          IF ( atm_cplExch_SaltPl ) THEN
191  c        CALL READ_MFLDS_3D_RL('sltPlmFx', saltPlmFlx,           CALL READ_MFLDS_3D_RL('sltPlmFx', saltPlmFlx_cpl,
192  c    &                                 nj, fp, 1 , myIter, myThid )       &                                 nj, fp, 1 , myIter, myThid )
193  c       ENDIF          ENDIF
194  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
195  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
196          IF ( atm_cplExch_DIC ) THEN          IF ( atm_cplExch_DIC ) THEN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22