File indexing completed on 2018-03-02 18:37:34 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
12983a4149 Jean*0002
0003
0004
0005
0006 SUBROUTINE ATM_STORE_LAND(
0007 I bi, bj,
0008 I myTime, myIter, myThid )
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021 IMPLICIT NONE
0022
0023
0024 #ifdef ALLOW_LAND
0025 # include "LAND_SIZE.h"
0026 #else
0027 # include "SIZE.h"
0028 #endif
0029
0030 #include "EEPARAMS.h"
0031 #include "PARAMS.h"
0032 #include "CPL_PARAMS.h"
0033 #ifdef ALLOW_LAND
0034
0035 # include "LAND_VARS.h"
0036 #endif
0037
0038 #include "ATMCPL.h"
0039
0040
0041
0042
0043
0044
0045 INTEGER bi, bj
0046 _RL myTime
0047 INTEGER myIter
0048 INTEGER myThid
0049
0050
0051 #ifdef ALLOW_LAND
0052
0053
0054 INTEGER i, j
0055 _RL cplTimeFraction
0056
0057
0058
0059 cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
0060 RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction
0061 DO j=1,sNy
0062 DO i=1,sNx
0063 RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)
0064 & + land_runOff(i,j,bi,bj)*cplTimeFraction
0065 ENDDO
0066 ENDDO
0067
0068
0069
0070 cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
0071 ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction
0072 DO j=1,sNy
0073 DO i=1,sNx
0074 RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj)
0075 & + land_enRnOf(i,j,bi,bj)*cplTimeFraction
0076 ENDDO
0077 ENDDO
0078
0079 #endif /* ALLOW_LAND */
0080
0081 RETURN
0082 END