/[MITgcm]/MITgcm/pkg/ocn_compon_interf/cpl_write_pickup.F
ViewVC logotype

Contents of /MITgcm/pkg/ocn_compon_interf/cpl_write_pickup.F

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

Revision 1.9 - (show annotations) (download)
Wed Jan 6 01:02:28 2016 UTC (10 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65s, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, HEAD
Changes since 1.8: +6 -10 lines 
- to save memory space in ATM & OCN comp: add some #ifdef ALLOW_${PKG} around
  optionally exchanged fields (ALLOW_SALT_PLUME, ALLOW_DIC for DIC,
   ALLOW_THSICE for 2-W thsice)
- rename:   fracIce     -> sIceFrac_cpl (<- match coupler var name)
- add 2-way thSIce vars exchange ; add Salt-Plume flux ; add RunOff in OCN.
- add argument: myIter to S/R OCN_EXPORT_FIELDS & OCN_IMPORT_FIELDS
1 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/cpl_write_pickup.F,v 1.8 2015/11/12 00:57:41 jmc Exp $
2 C $Name: $
3
4 #include "OCN_CPL_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: CPL_WRITE_PICKUP
8 C !INTERFACE:
9 SUBROUTINE CPL_WRITE_PICKUP(
10 I suff, myTime, myIter, myThid )
11 C !DESCRIPTION: \bv
12 C *==========================================================*
13 C | SUBROUTINE CPL_WRITE_PICKUP |
14 C | o Store coupling state for restart. |
15 C | - Oceanic version - |
16 C *==========================================================*
17 C | Presently, the atmospheric compon. is in charge of the |
18 C | writing of coupling fields ; nothing done here for now. |
19 C *==========================================================*
20 C \ev
21
22 C !USES:
23 IMPLICIT NONE
24
25 C == Global variables ==
26 #include "SIZE.h"
27 #include "EEPARAMS.h"
28 #include "PARAMS.h"
29 #include "CPL_PARAMS.h"
30 #include "OCNCPL.h"
31
32 C !INPUT/OUTPUT PARAMETERS:
33 C == Routine arguments ==
34 C permPickup :: write a permanent pickup
35 C suff :: suffix for pickup file (eg. ckptA or 0000000010)
36 C myTime :: Current time in simulation
37 C myIter :: Current iteration number in simulation
38 C myThid :: My Thread Id number
39 c LOGICAL permPickup
40 CHARACTER*(*) suff
41 _RL myTime
42 INTEGER myIter
43 INTEGER myThid
44 CEOP
45
46 #ifdef COMPONENT_MODULE
47 C == Local variables ==
48 C fn :: Workspace for building file name
49 C rec_ind :: index of the record in pickup file
50 CHARACTER*(MAX_LEN_FNAM) fn
51 INTEGER prec, rec_ind
52
53 WRITE(fn,'(A,A)') 'pickup_cpl.',suff
54 prec = precFloat64
55 rec_ind=0
56
57 c IF ( .NOT. cpl_earlyExpImpCall ) THEN
58 c CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 1, myIter, myThid )
59 c CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 2, myIter, myThid )
60 c CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 3, myIter, myThid )
61 c CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 4, myIter, myThid )
62 c CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 5, myIter, myThid )
63 c CALL WRITE_REC_3D_RL( fn,prec,1, FWFlux , 6, myIter, myThid )
64 c CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 7, myIter, myThid )
65 c CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 8, myIter, myThid )
66 c rec_ind=8
67 c ENDIF
68
69 #ifdef ALLOW_DIC
70 IF ( ocn_cplExch_DIC ) THEN
71 rec_ind = rec_ind + 1
72 CALL WRITE_REC_3D_RL( fn, prec, 1,
73 & fluxCO2cpl, rec_ind, myIter, myThid )
74 ENDIF
75 #endif /* ALLOW_DIC */
76
77 #endif /* COMPONENT_MODULE */
78
79 RETURN
80 END
  ViewVC Help
Powered by ViewVC 1.1.22