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

Diff of /MITgcm/pkg/atm_compon_interf/atm_store_runoff.F

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

revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Fri May 21 20:00:48 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$    C $Name$  
3    
4  #include "LAND_OPTIONS.h"  #include "PACKAGES_CONFIG.h"
5    #include "CPP_OPTIONS.h"
6    
7  CStartOfInterface  CStartOfInterface
8        SUBROUTINE ATM_STORE_RUNOFF( bi,bj,        SUBROUTINE ATM_STORE_RUNOFF( bi,bj,
9       I                             myCurrentTime,       I                             myTime,
10       I                             myCurrentIter,       I                             myIter,
11       I                             myThid )       I                             myThid )
12  C     /==========================================================\  C     /==========================================================\
13  C     | SUBROUTINE ATM_STORE_RUNOFF                              |  C     | SUBROUTINE ATM_STORE_RUNOFF                              |
# Line 18  C     \================================= Line 19  C     \=================================
19        IMPLICIT NONE        IMPLICIT NONE
20    
21  C     == Global variables ==  C     == Global variables ==
22    #ifdef ALLOW_LAND
23  #include "LAND_SIZE.h"  #include "LAND_SIZE.h"
24    #else
25    #include "SIZE.h"
26    #endif
27    
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "PARAMS.h"  #include "PARAMS.h"
 c #include "LAND_PARAMS.h"  
30  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
31    
32    #ifdef ALLOW_LAND
33    c #include "LAND_PARAMS.h"
34  #include "LAND_VARS.h"  #include "LAND_VARS.h"
35    #endif
36  C     == Global variables for coupling interface ==  C     == Global variables for coupling interface ==
37  #include "ATMCPL.h"  #include "ATMCPL.h"
 C     == AIMPHYS specific global data ==  
38    
39    
40  C     == Routine arguments ==  C     == Routine arguments ==
41  C     bi,bj         - Tile index  C     bi,bj  - Tile index
42  C     myThid        - Thread number for this instance of the routine  C     myThid - Thread number for this instance of the routine
43  C     myCurrentIter - Current timestep number  C     myIter - Current timestep number
44  C     myCurrentTime - Current model time  C     myTime - Current model time
45        INTEGER bi, bj        INTEGER bi, bj
46        _RL     myCurrentTime        _RL     myTime
47        INTEGER myCurrentIter        INTEGER myIter
48        INTEGER myThid        INTEGER myThid
49  CEndOfInterface  CEndOfInterface
50    
# Line 50  C     conv_precip  :: conversion factor Line 57  C     conv_precip  :: conversion factor
57    
58  C     o Accumulate RunOff from land bucket that will be exported to the  C     o Accumulate RunOff from land bucket that will be exported to the
59  C       coupling layer. RunOff is per surface unit, in m/s.  C       coupling layer. RunOff is per surface unit, in m/s.
60        cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)         cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
61  c     DO bj=myByLo(myThid),myByHi(myThid)         RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction
62  c      DO bi=myBxLo(myThid),myBxHi(myThid)         DO J=1,sNy
         RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction  
         DO J=1,sNy  
63           DO I=1,sNx           DO I=1,sNx
64            RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj)            RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj)
65       &                 + land_runOff(I,J,bi,bj)*cplTimeFraction       &                 + land_runOff(I,J,bi,bj)*cplTimeFraction
66           ENDDO           ENDDO
67          ENDDO         ENDDO
 c      ENDDO  
 c     ENDDO  
68    
69  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
70    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22