/[MITgcm]/MITgcm/pkg/aim_ocn_coupler/cpl_send_atm_fields.F
ViewVC logotype

Contents of /MITgcm/pkg/aim_ocn_coupler/cpl_send_atm_fields.F

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

Revision 1.1 - (show annotations) (download)
Fri May 21 19:31:50 2004 UTC (20 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint54f_post, checkpoint57t_post, checkpoint56b_post, checkpoint56, checkpoint57o_post, checkpoint57h_pre, checkpoint57y_post, checkpoint57r_post, checkpoint55j_post, eckpoint57e_pre, checkpoint55c_post, checkpoint58c_post, checkpoint57k_post, checkpoint57d_post, checkpoint55d_post, checkpoint58g_post, checkpoint57x_post, checkpoint57i_post, checkpoint57c_post, checkpoint54a_post, checkpoint57m_post, checkpoint55e_post, checkpoint55f_post, checkpoint58, checkpoint57a_pre, checkpoint58e_post, checkpoint57, checkpoint57v_post, checkpoint53d_post, checkpoint53c_post, checkpoint53g_post, checkpoint57g_pre, checkpoint54b_post, checkpoint55h_post, checkpoint54a_pre, checkpoint53f_post, checkpoint55a_post, checkpoint57f_post, checkpoint53d_pre, checkpoint58h_post, checkpoint57h_done, checkpoint55i_post, checkpoint57e_post, checkpoint54c_post, checkpoint58f_post, checkpoint54d_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint56c_post, checkpoint55g_post, checkpoint57n_post, checkpoint54e_post, checkpoint57b_post, checkpoint55b_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpoint57h_post, checkpint57u_post, checkpoint55d_pre, checkpoint58a_post, checkpoint57l_post, checkpoint57g_post, checkpoint58i_post, checkpoint57q_post, checkpoint57y_pre, checkpoint55, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint56a_post, checkpoint57c_pre, checkpoint57z_post 
new version of coupler for AIM+thSIce and ocean
1 C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/cpl_send_atm_sst.F,v 1.1 2003/12/15 02:28:01 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CStartOfInterface
7 SUBROUTINE CPL_SEND_ATM_FIELDS
8 C /==========================================================\
9 C | SUBROUTINE CPL_SEND_ATM_FIELDS |
10 C | o Routine for sending ocean surface fields to atmos. |
11 C | component. |
12 C |==========================================================|
13 C | This version talks to the MITgcm general circulation |
14 C | model. |
15 C \==========================================================/
16 IMPLICIT NONE
17
18 C == Global variables ==
19 #include "ATMSIZE.h"
20 #include "ATMVARS.h"
21 #include "ATMIDS.h"
22 #include "OCNSIZE.h"
23 #include "OCNVARS.h"
24
25 C == Routine arguments ==
26
27 C == Local variables ==
28
29 CEndOfInterface
30
31 C-- Map ocean mixed-layer depth onto atmos. grid
32 CALL OCN_TO_ATM_MAPXYR8(
33 I Nx_ocn, Ny_ocn, OcMxlD_ocn, Nx_atm, Ny_atm,
34 O OcMxlD_atm )
35 C Send ocean mixed-layer depth to atmos. component
36 CALL COUPSEND_R8TILES( atmCompName, atmMxlDName,
37 I Nx_atm, Ny_atm, OcMxlD_atm )
38
39 C-- Map ocean surface temperature onto atmos. grid
40 CALL OCN_TO_ATM_MAPXYR8(
41 I Nx_ocn, Ny_ocn, SST_ocn, Nx_atm, Ny_atm,
42 O SST_atm )
43 C Send SST to atmos. component
44 CALL COUPSEND_R8TILES( atmCompName, atmSSTName,
45 I Nx_atm, Ny_atm, SST_atm )
46
47 C-- Map ocean surface salinity onto atmos. grid
48 CALL OCN_TO_ATM_MAPXYR8(
49 I Nx_ocn, Ny_ocn, SSS_ocn, Nx_atm, Ny_atm,
50 O SSS_atm )
51 C Send SSS to atmos. component
52 CALL COUPSEND_R8TILES( atmCompName, atmSSSName,
53 I Nx_atm, Ny_atm, SSS_atm )
54
55 C-- Map ocean surface velocity square onto atmos. grid
56 CALL OCN_TO_ATM_MAPXYR8(
57 I Nx_ocn, Ny_ocn, vSq_ocn, Nx_atm, Ny_atm,
58 O vSq_atm )
59 C Send ocean surface velocity square to atmos. component
60 CALL COUPSEND_R8TILES( atmCompName, atmSSVsqName,
61 I Nx_atm, Ny_atm, vSq_atm )
62
63 RETURN
64 END
  ViewVC Help
Powered by ViewVC 1.1.22