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

Contents of /MITgcm/pkg/aim_compon_interf/atm_store_my_data.F

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

Revision 1.4 - (show annotations) (download)
Mon Jan 5 15:19:17 2009 UTC (15 years, 5 months ago) by dfer
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, checkpoint62, checkpoint63, 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, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.3: +2 -1 lines 
Add well-mixed CO2 box in Aim
1 C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_store_my_data.F,v 1.3 2007/06/18 21:28:52 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: ATM_STORE_MY_DATA
8 C !INTERFACE:
9 SUBROUTINE ATM_STORE_MY_DATA( bi,bj,
10 I myTime, myIter, myThid )
11
12 C !DESCRIPTION: \bv
13 C *==========================================================*
14 C | SUBROUTINE ATM_STORE_MY_DATA
15 C | o Routine for controlling storage of coupling data to
16 C | coupler layer.
17 C *==========================================================*
18 C | This version interfaces to the MITgcm AIMPHYS package.
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 "ATMIDS.h"
30
31 C !INPUT/OUTPUT PARAMETERS:
32 C == Routine arguments ==
33 C bi,bj :: Current tile indices
34 C myTime :: Current internal time.
35 C myIter :: Current timestep number.
36 C myThid :: my Thread Id number
37 INTEGER bi,bj
38 _RL myTime
39 INTEGER myIter
40 INTEGER myThid
41 CEOP
42
43 #ifdef COMPONENT_MODULE
44 C == Local variables ==
45
46 C Store coupling data ready for export
47 CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid )
48 CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid )
49 CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )
50 c CALL ATM_STORE_QSENSIBLE( bi,bj, myTime, myIter, myThid )
51 c CALL ATM_STORE_QLATENT( bi,bj, myTime, myIter, myThid )
52 c CALL ATM_STORE_QLONGWAVE( bi,bj, myTime, myIter, myThid )
53 c CALL ATM_STORE_UVELGROUND( bi,bj, myTime, myIter, myThid )
54 c CALL ATM_STORE_VVELGROUND( bi,bj, myTime, myIter, myThid )
55 c CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid )
56 c CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, myThid )
57 CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid )
58 IF ( useLand ) THEN
59 CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid )
60 CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid )
61 ENDIF
62 IF ( useThSIce ) THEN
63 CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid )
64 CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid )
65 ENDIF
66 IF ( atmCpl_exchange_DIC ) THEN
67 CALL ATM_STORE_WSPEED( bi,bj, myTime, myIter, myThid )
68 IF ( useThSIce )
69 & CALL ATM_STORE_FRACICE( bi,bj, myTime, myIter, myThid )
70 CALL ATM_STORE_AIRCO2( bi,bj, myTime, myIter, myThid )
71 ENDIF
72
73 #endif /* COMPONENT_MODULE */
74
75 RETURN
76 END
  ViewVC Help
Powered by ViewVC 1.1.22