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

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

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

revision 1.2 by jmc, Sun Apr 18 15:38:45 2004 UTC revision 1.3 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 "AIM_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE ATM_STORE_QSHORTWAVE(bi,bj,        SUBROUTINE ATM_STORE_QSHORTWAVE(bi,bj,
8       I                                myCurrentTime,       I                                myTime,
9       I                                myCurrentIter,       I                                myIter,
10       I                                myThid )       I                                myThid )
11  C     /==========================================================\  C     /==========================================================\
12  C     | SUBROUTINE ATM_STORE_QSHORTWAVE                          |  C     | SUBROUTINE ATM_STORE_QSHORTWAVE                          |
# Line 18  C     \================================= Line 18  C     \=================================
18        IMPLICIT NONE        IMPLICIT NONE
19    
20  C     == Global variables ==  C     == Global variables ==
21  #include "AIM_SIZE.h"  #include "SIZE.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
25    C     == Global variables (main model)
26    #include "FFIELDS.h"
27  C     == Global variables for coupling interface ==  C     == Global variables for coupling interface ==
28  #include "ATMCPL.h"  #include "ATMCPL.h"
 C     == AIMPHYS specific global data ==  
 #include "com_physvar.h"  
29    
30    
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     bi,bj         - Tile index  C     bi,bj  - Tile index
33  C     myThid        - Thread number for this instance of the routine  C     myThid - Thread number for this instance of the routine
34  C     myCurrentIter - Current timestep number  C     myIter - Current timestep number
35  C     myCurrentTime - Current model time  C     myTime - Current model time
36        INTEGER bi, bj        INTEGER bi, bj
37        _RL     myCurrentTime        _RL     myTime
38        INTEGER myCurrentIter        INTEGER myIter
39        INTEGER myThid        INTEGER myThid
40  CEndOfInterface  CEndOfInterface
41    
42    #ifdef COMPONENT_MODULE
43  C     == Local variables ==  C     == Local variables ==
44  C     I,J,K,II - Loop counters  C     i,j - Loop counters
45        INTEGER I,J,K,II        INTEGER i,j
46        _RL cplTimeFraction        _RL cplTimeFraction
47    
48  C     o Accumulate heat flux that will be exported to the coupling layer.  C     o Accumulate heat flux that will be exported to the coupling layer.
49  C     +ve into atmos., W/m^2.  C     +ve into atmos., W/m2.
50        cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)  
51  c     DO bj=myByLo(myThid),myByHi(myThid)         cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
52  c      DO bi=myBxLo(myThid),myBxHi(myThid)         qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction
53          QshortwaveTime(bi,bj) = QshortwaveTime(bi,bj) + cplTimeFraction         DO j=1,sNy
54          DO J=1,sNy           DO i=1,sNx
55           DO I=1,sNx            qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj)
56            II = (sNx)*(J-1)+I       &                          + Qsw(i,j,bi,bj)*cplTimeFraction
           Qshortwave(I,J,bi,bj) =  
      &    Qshortwave(I,J,bi,bj) - SSR(II,2,myThid)*cplTimeFraction  
57           ENDDO           ENDDO
58          ENDDO         ENDDO
59  c      ENDDO  
60  c     ENDDO  #endif /* COMPONENT_MODULE */
61    
62        RETURN        RETURN
63        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22