/[MITgcm]/MITgcm/pkg/atm2d/cpl_send_ocn_atmconfig.F
ViewVC logotype

Diff of /MITgcm/pkg/atm2d/cpl_send_ocn_atmconfig.F

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

revision 1.2 by jmc, Mon Oct 8 23:48:28 2007 UTC revision 1.3 by jmc, Mon Dec 2 23:54:43 2013 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "ATM2D_OPTIONS.h"  #include "ATM2D_OPTIONS.h"
 #ifdef ATM2D_MPI_ON  
5    
6  CStartOfInterface  CBOP 0
7    C !ROUTINE: CPL_SEND_OCN_ATMCONFIG
8    
9    C !INTERFACE:
10        SUBROUTINE CPL_SEND_OCN_ATMCONFIG        SUBROUTINE CPL_SEND_OCN_ATMCONFIG
 C     /==========================================================\  
 C     | SUBROUTINE CPL_SEND_OCN_ATMCONFIG                        |  
 C     | o Routine for sending atmos. config to ocean component.  |  
 C     |==========================================================|  
 C     | This version talks to the MITgcm general circulation     |  
 C     | model. For now just send atmosphere depths.              |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C !DESCRIPTION:
13    C     *==========================================================*
14    C     | SUBROUTINE CPL_SEND_OCN_ATMCONFIG
15    C     | o Routine for sending atmos. config to ocean component.
16    C     *==========================================================*
17    C     | This version talks to the MITgcm general circulation
18    C     | model. For now just send atmosphere land/sea mask.
19    C     *==========================================================*
20    
21    #ifdef ATM2D_MPI_ON
22    C !USES:
23          IMPLICIT NONE
24  C     == Global variables ==  C     == Global variables ==
25    c#include "ATMSIZE.h"
26    c#include "ATMVARS.h"
27    #include "ATMIDS.h"
28  #include "OCNSIZE.h"  #include "OCNSIZE.h"
29  #include "OCNVARS.h"  #include "OCNVARS.h"
30  #include "OCNIDS.h"  #include "OCNIDS.h"
31    
32  C     == Routine arguments ==  C !INPUT/OUTPUT PARAMETERS:
33    C !LOCAL VARIABLES:
 C     == Local variables ==  
       CHARACTER*(10) atmDepthName  
       PARAMETER( atmDepthName        = 'ATM Depths'     )  
34        INTEGER i,j        INTEGER i,j
35    CEOP
36    
37  CEndOfInterface  C     Map atmos. depth map onto ocean grid
38    c     CALL ATM_TO_OCN_MAPXYR8(
39    c    I     Nx_atm, Ny_atm,
40    c    I     landMask_atm,
41    c    I     Nx_ocn, Ny_ocn,
42    c    O     landMask_ocn)
43        DO i=1,Nx_ocn        DO i=1,Nx_ocn
44          DO j=1,Ny_ocn          DO j=1,Ny_ocn
45            AtmDepths_ocn(i,j)=1. _d 5   !ocean code checks for this            landMask_ocn(i,j)= 0.5  !ocean code checks for this
46          ENDDO          ENDDO
47        ENDDO        ENDDO
48    
   
49  C     Send atmos. config to ocean component  C     Send atmos. config to ocean component
50        CALL COUPSEND_R8TILES( ocnCompName, atmDepthName, Nx_ocn, Ny_ocn,        CALL COUPSEND_R8TILES( ocnCompName, atmLandName, Nx_ocn, Ny_ocn,
51       &                       AtmDepths_ocn )       &                       landMask_ocn )
52    
53    #endif /* ATM2D_MPI_ON */
54    
55        RETURN        RETURN
56        END        END
   
 #endif  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22