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

Diff of /MITgcm/pkg/atm_compon_interf/atm_import_ocnconfig.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 18  C     \================================= Line 18  C     \=================================
18  C     == Global variables ==  C     == Global variables ==
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "OCNIDS.h"  #include "ATMIDS.h"
22  #include "ATMCPL.h"  #include "ATMCPL.h"
23    
24  C     == Routine arguments ==  C     == Routine arguments ==
# Line 26  C     myThid - Thread number for this in Line 26  C     myThid - Thread number for this in
26        INTEGER myThid        INTEGER myThid
27  CEndOfInterface  CEndOfInterface
28    
29    #ifdef COMPONENT_MODULE
30    C     == Local variables ==
31    C     i,j,bi,bj - Loop counters
32          INTEGER i,j,bi,bj
33    
34    C-    Initialise mixed-layer depth
35          DO bj=myByLo(myThid),myByHi(myThid)
36           DO bi=myBxLo(myThid),myByLo(myThid)
37            DO j=1-Oly,sNy+Oly
38             DO i=1-Olx,sNx+Olx
39              ocMxlD (i,j,bi,bj) = 0.
40             ENDDO
41            ENDDO
42           ENDDO
43          ENDDO
44    
45  C     Receive ocean model configuration info.  C     Receive ocean model configuration info.
46  C     o Import ocean model depths  C     o Import ocean model mixed-layer depth
47        CALL COMPRECV_R8TILES( ocnBathyName,        CALL COMPRECV_R8TILES( atmMxlDName,
48       I     sNx, OLx, sNy, OLy, 1, nSx, nSy,       I     sNx, OLx, sNy, OLy, 1, nSx, nSy,
49       O     Hocn )       O     ocMxlD )
50    
51    #endif /* COMPONENT_MODULE */
52    
53        RETURN        RETURN
54        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22