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

Annotation of /MITgcm/pkg/aim_compon_interf/cpl_write_pickup.F

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

Revision 1.4 - (hide annotations) (download)
Fri Oct 19 03:21:39 2007 UTC (16 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint59j, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.3: +12 -14 lines 
more stantard interface:
- change argument list (pass pickup suffix, declared as CHARACTER*(*) ).
- call  WRITE_REC_3D_RL instead of MDSWRITEFIELD
1 jmc 1.4 C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/cpl_write_pickup.F,v 1.3 2007/06/18 21:28:53 jmc Exp $
2 jmc 1.2 C $Name: $
3 jmc 1.1
4     #include "CPP_OPTIONS.h"
5    
6 jmc 1.3 CBOP
7     C !ROUTINE: CPL_WRITE_PICKUP
8     C !INTERFACE:
9 jmc 1.1 SUBROUTINE CPL_WRITE_PICKUP(
10 jmc 1.4 I suff, myTime, myIter, myThid )
11 jmc 1.3
12     C !DESCRIPTION: \bv
13     C *==========================================================*
14     C | SUBROUTINE CPL_WRITE_PICKUP
15     C | o Store coupling state for restart.
16     C | - Atmospheric version -
17     C *==========================================================*
18     C \ev
19    
20     C !USES:
21 jmc 1.1 IMPLICIT NONE
22    
23     C == Global variables ==
24     #include "SIZE.h"
25     #include "EEPARAMS.h"
26     #include "PARAMS.h"
27 jmc 1.3 #include "ATMIDS.h"
28 jmc 1.1 #include "ATMCPL.h"
29    
30 jmc 1.3 C !INPUT/OUTPUT PARAMETERS:
31 jmc 1.1 C == Routine arguments ==
32 jmc 1.4 C suff :: suffix for pickup file (eg. ckptA or 0000000010)
33     C myTime :: Current time in simulation
34     C myIter :: Current iteration number in simulation
35     C myThid :: My Thread Id number
36     CHARACTER*(*) suff
37     _RL myTime
38 jmc 1.1 INTEGER myIter
39     INTEGER myThid
40 jmc 1.3 CEOP
41 jmc 1.1
42 jmc 1.2 #ifdef COMPONENT_MODULE
43 jmc 1.1 C == Local variables ==
44     C fn - Workspace for building file name
45     CHARACTER*(MAX_LEN_FNAM) fn
46 jmc 1.4 INTEGER prec
47    
48     prec = precFloat64
49     WRITE(fn,'(A,A)') 'pickup_cpl.',suff
50 jmc 1.1
51 jmc 1.3 c CALL WRITE_REC_3D_RL(fn,prec,1,SSTocn , 1,myIter,myThid)
52     c CALL WRITE_REC_3D_RL(fn,prec,1,HeatFlux , 2,myIter,myThid)
53     c CALL WRITE_REC_3D_RL(fn,prec,1,tauX , 3,myIter,myThid)
54     c CALL WRITE_REC_3D_RL(fn,prec,1,tauY , 4,myIter,myThid)
55     c CALL WRITE_REC_3D_RL(fn,prec,1,EvMPrFlux , 5,myIter,myThid)
56     c CALL WRITE_REC_3D_RL(fn,prec,1,RunOffFlux, 6,myIter,myThid)
57     c CALL WRITE_REC_3D_RL(fn,prec,1,uVelGround, 7,myIter,myThid)
58     c CALL WRITE_REC_3D_RL(fn,prec,1,vVelGround, 8,myIter,myThid)
59     c CALL WRITE_REC_3D_RL(fn,prec,1,qLatent , 9,myIter,myThid)
60     c CALL WRITE_REC_3D_RL(fn,prec,1,qSensible ,10,myIter,myThid)
61     c CALL WRITE_REC_3D_RL(fn,prec,1,qLongwave ,11,myIter,myThid)
62     c CALL WRITE_REC_3D_RL(fn,prec,1,qShortwave,12,myIter,myThid)
63    
64     CALL WRITE_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid )
65     CALL WRITE_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid )
66     CALL WRITE_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid )
67     CALL WRITE_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid )
68    
69     CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid )
70     CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid )
71     CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid )
72     CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid )
73     CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid )
74     CALL WRITE_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid )
75     CALL WRITE_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid )
76     CALL WRITE_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid )
77     CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid )
78     CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid )
79    
80     IF ( atmCpl_exchange_DIC ) THEN
81     CALL WRITE_REC_3D_RL(fn,prec,1, flxCO2ocn , 15, myIter,myThid )
82     CALL WRITE_REC_3D_RL(fn,prec,1, airCO2 , 16, myIter,myThid )
83     CALL WRITE_REC_3D_RL(fn,prec,1, sWSpeed , 17, myIter,myThid )
84     CALL WRITE_REC_3D_RL(fn,prec,1, fracIce , 18, myIter,myThid )
85     ENDIF
86 jmc 1.2 #endif /* COMPONENT_MODULE */
87 jmc 1.1
88     RETURN
89     END
  ViewVC Help
Powered by ViewVC 1.1.22