File indexing completed on 2019-08-09 05:11:00 UTC
view on githubraw file Latest commit d200a168 on 2019-08-02 06:38:38 UTC
6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
79e04e6111 Jean*0003
0004
0005
0006
69e21e3ef0 Jean*0007 SUBROUTINE OCN_IMPORT_ATMCONFIG( myThid )
0008
79e04e6111 Jean*0009
0010
0011
6bfee994e4 Jean*0012
0013
79e04e6111 Jean*0014
0015
0016
0017
0018
0019
0020 IMPLICIT NONE
69e21e3ef0 Jean*0021
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
0024 #include "ATMIDS.h"
0025 #include "OCNCPL.h"
0026
79e04e6111 Jean*0027
69e21e3ef0 Jean*0028
79e04e6111 Jean*0029
69e21e3ef0 Jean*0030 INTEGER myThid
79e04e6111 Jean*0031
69e21e3ef0 Jean*0032
6bfee994e4 Jean*0033
0034
0035
0036 INTEGER i,j,bi,bj
0037
0038
0039 DO bj=myByLo(myThid),myByHi(myThid)
d200a16830 Jean*0040 DO bi=myBxLo(myThid),myBxHi(myThid)
6bfee994e4 Jean*0041 DO j=1-OLy,sNy+OLy
0042 DO i=1-OLx,sNx+OLx
0043 landMask(i,j,bi,bj) = 0.
0044 ENDDO
0045 ENDDO
0046 ENDDO
0047 ENDDO
0048
0049
79e04e6111 Jean*0050 _BARRIER
0051 _BEGIN_MASTER( myThid )
6bfee994e4 Jean*0052
0053
79e04e6111 Jean*0054 CALL COMPRECV_R8TILES(
1a1199da4c Jean*0055 I atmLandName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
0056 O landMask )
6bfee994e4 Jean*0057
79e04e6111 Jean*0058 _END_MASTER( myThid )
0059 _BARRIER
69e21e3ef0 Jean*0060
0061 RETURN
0062 END