C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/ocn_import_atmconfig.F,v 1.1.1.1 2004/02/15 22:28:18 cnh Exp $ C $Name: $ #include "CPP_OPTIONS.h" CStartOfInterface SUBROUTINE OCN_IMPORT_ATMCONFIG( myThid ) C /==========================================================\ C | SUBROUTINE OCN_IMPORT_ATMCONFIG | C | o Routine for importing atmos. config into ocean | C | component. | C |==========================================================| C | This version talks to the MIT Coupler. It uses the | C | MIT Coupler "checkpoint 1" library calls. | C \==========================================================/ IMPLICIT NONE C == Global variables == #include "SIZE.h" #include "EEPARAMS.h" #include "ATMIDS.h" #include "OCNCPL.h" C == Routine arguments == C myThid - Thread number for this instance of the routine INTEGER myThid CEndOfInterface C Receive atmos. model configuration info. C o Import atmosphere model orography C CALL COMPRECV_R8TILES( atmDepthName, C I sNx, OLx, sNy, OLy, 1, nSx, nSy, C O Hatm ) RETURN END