-
Notifications
You must be signed in to change notification settings - Fork 237
/
atm_import_ocnconfig.F
65 lines (53 loc) · 1.58 KB
/
atm_import_ocnconfig.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#include "ATM_CPL_OPTIONS.h"
CBOP 0
C !ROUTINE: ATM_IMPORT_OCNCONFIG
C !INTERFACE:
SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )
C !DESCRIPTION:
C *==========================================================*
C | SUBROUTINE ATM_IMPORT_OCNCONFIG
C | o Routine for importing ocean config
C | into atmos. component.
C *==========================================================*
C | This version talks to the MIT Coupler. It uses the
C | MIT Coupler "checkpoint 1" library calls.
C *==========================================================*
C !USES:
IMPLICIT NONE
C == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "ATMIDS.h"
#include "ATMCPL.h"
C !INPUT/OUTPUT PARAMETERS:
C == Routine arguments ==
C myThid :: Thread number for this instance of the routine
INTEGER myThid
CEOP
#ifdef COMPONENT_MODULE
C !LOCAL VARIABLES:
C == Local variables ==
C i,j,bi,bj :: Loop counters
INTEGER i,j,bi,bj
C- Initialise mixed-layer depth
DO bj=myByLo(myThid),myByHi(myThid)
DO bi=myBxLo(myThid),myBxHi(myThid)
DO j=1-OLy,sNy+OLy
DO i=1-OLx,sNx+OLx
ocMxlD (i,j,bi,bj) = 0.
ENDDO
ENDDO
ENDDO
ENDDO
C- Receive ocean model configuration info.
_BARRIER
_BEGIN_MASTER( myThid )
C o Import ocean model mixed-layer depth
CALL COMPRECV_R8TILES(
I atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
O ocMxlD )
_END_MASTER( myThid )
_BARRIER
#endif /* COMPONENT_MODULE */
RETURN
END