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

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

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

Revision 1.5 - (show annotations) (download)
Wed Sep 11 20:17:27 2013 UTC (10 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64o, checkpoint65, checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e
Changes since 1.4: +49 -32 lines 
- regroup per field origin (model & pkgs) the coupling storage routines
   (which accumalate in time each coupling field)
- move bi,bj loops inside atm_store_my_data.F and store alos wind-stress;
  update accordingly + simplify aim_do_physics.F
1 C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/atm_store_my_data.F,v 1.4 2009/01/05 15:19:17 dfer 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(
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 myTime :: Current internal time.
33 C myIter :: Current timestep number.
34 C myThid :: my Thread Id number
35 _RL myTime
36 INTEGER myIter
37 INTEGER myThid
38 CEOP
39
40 #ifdef COMPONENT_MODULE
41 C !LOCAL VARIABLES:
42 C bi, bj :: Tile indices
43 INTEGER bi,bj
44
45 DO bj=myByLo(myThid),myByHi(myThid)
46 DO bi=myBxLo(myThid),myBxHi(myThid)
47
48 C Store coupling data ready for export
49 CALL ATM_STORE_DYNVARS( bi, bj, myTime, myIter, myThid )
50 CALL ATM_STORE_SURFFLUX( bi, bj, myTime, myIter, myThid )
51 IF ( useAIM ) THEN
52 CALL ATM_STORE_AIM_WNDSTR( bi, bj, myTime, myIter, myThid )
53 ENDIF
54 IF ( useAIM .AND. atmCpl_exchange_DIC ) THEN
55 CALL ATM_STORE_AIM_FIELDS( bi, bj, myTime, myIter, myThid )
56 ENDIF
57 IF ( useLand ) THEN
58 CALL ATM_STORE_LAND( bi, bj, myTime, myIter, myThid )
59 ENDIF
60 IF ( useThSIce ) THEN
61 CALL ATM_STORE_THSICE( bi, bj, myTime, myIter, myThid )
62 ENDIF
63
64 C Store coupling data ready for export
65 c CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid )
66 c CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid )
67 c CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )
68 c CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid )
69 c CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, myThid )
70 c CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid )
71 c IF ( useLand ) THEN
72 c CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid )
73 c CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid )
74 c ENDIF
75 c IF ( useThSIce ) THEN
76 c CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid )
77 c CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid )
78 c ENDIF
79 c IF ( atmCpl_exchange_DIC ) THEN
80 c CALL ATM_STORE_WSPEED( bi,bj, myTime, myIter, myThid )
81 c IF ( useThSIce )
82 c & CALL ATM_STORE_FRACICE( bi,bj, myTime, myIter, myThid )
83 c CALL ATM_STORE_AIRCO2( bi,bj, myTime, myIter, myThid )
84 c ENDIF
85
86 C-- end bi,bj loops.
87 ENDDO
88 ENDDO
89
90 #endif /* COMPONENT_MODULE */
91
92 RETURN
93 END
  ViewVC Help
Powered by ViewVC 1.1.22