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

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

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

Revision 1.1 - (show annotations) (download)
Wed Sep 11 20:17:27 2013 UTC (10 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint65 
- 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_fracice.F,v 1.1 2007/06/18 21:28:52 jmc Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 CBOP
8 C !ROUTINE: ATM_STORE_LAND
9 C !INTERFACE:
10 SUBROUTINE ATM_STORE_LAND(
11 I bi, bj,
12 I myTime, myIter, myThid )
13
14 C !DESCRIPTION: \bv
15 C *==========================================================*
16 C | SUBROUTINE ATM_STORE_LAND
17 C | o Routine for saving Land fluxes from LAND pkg
18 C | for export to coupling layer.
19 C *==========================================================*
20 C | This version interfaces to the LAND package.
21 C *==========================================================*
22 C \ev
23
24 C !USES:
25 IMPLICIT NONE
26
27 C == Global variables ==
28 #ifdef ALLOW_LAND
29 # include "LAND_SIZE.h"
30 #else
31 # include "SIZE.h"
32 #endif
33
34 #include "EEPARAMS.h"
35 #include "PARAMS.h"
36 #include "CPL_PARAMS.h"
37 #ifdef ALLOW_LAND
38 c #include "LAND_PARAMS.h"
39 # include "LAND_VARS.h"
40 #endif
41 C == Global variables for coupling interface ==
42 #include "ATMCPL.h"
43
44 C !INPUT/OUTPUT PARAMETERS:
45 C bi, bj :: Tile indices
46 C myTime :: Current model time
47 C myIter :: Current timestep number
48 C myThid :: my Thread Id number
49 INTEGER bi, bj
50 _RL myTime
51 INTEGER myIter
52 INTEGER myThid
53 CEOP
54
55 #ifdef ALLOW_LAND
56 C !LOCAL VARIABLES:
57 C i, j :: Loop counters
58 INTEGER i, j
59 _RL cplTimeFraction
60
61 C o Accumulate RunOff from land bucket that will be exported to the
62 C coupling layer. RunOff is per surface unit, in kg/m2/s
63 cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
64 RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction
65 DO j=1,sNy
66 DO i=1,sNx
67 RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)
68 & + land_runOff(i,j,bi,bj)*cplTimeFraction
69 ENDDO
70 ENDDO
71
72 C o Accumulate RunOff Energy from land bucket that will be exported
73 C to the coupling layer. RunOff Energy is per surface unit, in W/m2.
74 cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
75 ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction
76 DO j=1,sNy
77 DO i=1,sNx
78 RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj)
79 & + land_enRnOf(i,j,bi,bj)*cplTimeFraction
80 ENDDO
81 ENDDO
82
83 #endif /* ALLOW_LAND */
84
85 RETURN
86 END
  ViewVC Help
Powered by ViewVC 1.1.22