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

Annotation 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 - (hide 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 jmc 1.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