pkg/ocn_compon_interf/cpl_write_pickup.F

071fa694ec Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
cc04975b16 Jean*0003 CBOP
                0004 C     !ROUTINE: CPL_WRITE_PICKUP
                0005 C     !INTERFACE:
69e21e3ef0 Jean*0006       SUBROUTINE CPL_WRITE_PICKUP(
cc04975b16 Jean*0007      I                             suff, myTime, myIter, myThid )
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
44ff40f0ae Jean*0010 C     | SUBROUTINE CPL_WRITE_PICKUP                              |
69e21e3ef0 Jean*0011 C     | o Store coupling state for restart.                      |
                0012 C     | - Oceanic version -                                      |
cc04975b16 Jean*0013 C     *==========================================================*
69e21e3ef0 Jean*0014 C     | Presently, the atmospheric compon. is in charge of the   |
                0015 C     |  writing of coupling fields ; nothing done here for now. |
cc04975b16 Jean*0016 C     *==========================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
69e21e3ef0 Jean*0020       IMPLICIT NONE
                0021
                0022 C     == Global variables ==
                0023 #include "SIZE.h"
                0024 #include "EEPARAMS.h"
                0025 #include "PARAMS.h"
7f76a37b3a Davi*0026 #include "CPL_PARAMS.h"
69e21e3ef0 Jean*0027 #include "OCNCPL.h"
                0028
cc04975b16 Jean*0029 C     !INPUT/OUTPUT PARAMETERS:
69e21e3ef0 Jean*0030 C     == Routine arguments ==
cc04975b16 Jean*0031 C     permPickup :: write a permanent pickup
                0032 C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
                0033 C     myTime  :: Current time in simulation
                0034 C     myIter  :: Current iteration number in simulation
                0035 C     myThid  :: My Thread Id number
050d4481a9 Jean*0036 c     LOGICAL permPickup
cc04975b16 Jean*0037       CHARACTER*(*) suff
                0038       _RL     myTime
69e21e3ef0 Jean*0039       INTEGER myIter
                0040       INTEGER myThid
cc04975b16 Jean*0041 CEOP
69e21e3ef0 Jean*0042
cc04975b16 Jean*0043 #ifdef COMPONENT_MODULE
69e21e3ef0 Jean*0044 C     == Local variables ==
cc04975b16 Jean*0045 C     fn          :: Workspace for building file name
7f76a37b3a Davi*0046 C     rec_ind     :: index of the record in pickup file
69e21e3ef0 Jean*0047       CHARACTER*(MAX_LEN_FNAM) fn
7f76a37b3a Davi*0048       INTEGER prec, rec_ind
69e21e3ef0 Jean*0049
cc04975b16 Jean*0050       WRITE(fn,'(A,A)') 'pickup_cpl.',suff
7f76a37b3a Davi*0051       prec = precFloat64
                0052       rec_ind=0
cc04975b16 Jean*0053
44ff40f0ae Jean*0054 c     IF ( .NOT. cpl_earlyExpImpCall ) THEN
                0055 c       CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr   , 1, myIter, myThid )
                0056 c       CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux  , 2, myIter, myThid )
                0057 c       CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 3, myIter, myThid )
                0058 c       CALL WRITE_REC_3D_RL( fn,prec,1, tauX      , 4, myIter, myThid )
                0059 c       CALL WRITE_REC_3D_RL( fn,prec,1, tauY      , 5, myIter, myThid )
                0060 c       CALL WRITE_REC_3D_RL( fn,prec,1, FWFlux    , 6, myIter, myThid )
                0061 c       CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 7, myIter, myThid )
                0062 c       CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 8, myIter, myThid )
                0063 c       rec_ind=8
                0064 c     ENDIF
e596558d31 Jean*0065
90578acae6 Jean*0066 #ifdef ALLOW_DIC
071fa694ec Jean*0067       IF ( ocn_cplExch_DIC ) THEN
90578acae6 Jean*0068         rec_ind = rec_ind + 1
                0069         CALL WRITE_REC_3D_RL( fn, prec, 1,
                0070      &                        fluxCO2cpl, rec_ind, myIter, myThid )
e7c6a47db7 Jeff*0071       ENDIF
90578acae6 Jean*0072 #endif /* ALLOW_DIC */
e7c6a47db7 Jeff*0073
cc04975b16 Jean*0074 #endif /* COMPONENT_MODULE */
69e21e3ef0 Jean*0075
                0076       RETURN
                0077       END