** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Mon, 19 Oct 2025 05:09:00 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/atm_ocn_coupler/cpl_send_atm_ocnconfig.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:37:37 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002 
128d77e532 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_SEND_ATM_OCNCONFIG
                0005 
                0006 C !INTERFACE:
7f58e89433 Jean*0007       SUBROUTINE CPL_SEND_ATM_OCNCONFIG
                0008 
128d77e532 Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_SEND_ATM_OCNCONFIG
                0012 C     | o Routine for sending atmos. config to ocean component.
                0013 C     *==========================================================*
                0014 C     | This version talks to the MITgcm general circulation
                0015 C     | model. For now just send atmosphere depths.
                0016 C     *==========================================================*
                0017 
                0018 C !USES:
                0019       IMPLICIT NONE
7f58e89433 Jean*0020 C     == Global variables ==
ae26b3189f Jean*0021 c#include "CPL_PARAMS.h"
                0022 #include "ATMIDS.h"
7f58e89433 Jean*0023 #include "ATMSIZE.h"
                0024 #include "ATMVARS.h"
                0025 #include "OCNSIZE.h"
                0026 #include "OCNVARS.h"
                0027 
128d77e532 Jean*0028 C !INPUT/OUTPUT PARAMETERS:
                0029 C !LOCAL VARIABLES:
                0030 CEOP
7f58e89433 Jean*0031 
ae26b3189f Jean*0032 C-    Map ocean depth map onto atmos. grid
7f58e89433 Jean*0033       CALL OCN_TO_ATM_MAPXYR8(
128d77e532 Jean*0034      I     Nx_ocn, Ny_ocn,
                0035      I     OcMxlD_ocn,
7f58e89433 Jean*0036      I     Nx_atm, Ny_atm,
                0037      O     OcMxlD_atm)
                0038 
ae26b3189f Jean*0039 C-    Send ocean config to atmos. component
128d77e532 Jean*0040       CALL COUPSEND_R8TILES( atmCompName, atmMxlDName, Nx_atm, Ny_atm,
7f58e89433 Jean*0041      &                       OcMxlD_atm )
                0042 
                0043       RETURN
                0044       END
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!