/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/accept_component_registrations.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/accept_component_registrations.F

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

revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 23  C     \================================= Line 23  C     \=================================
23        IMPLICIT NONE        IMPLICIT NONE
24  C     === GLobal variables ==  C     === GLobal variables ==
25  #include "CPLIDS.h"  #include "CPLIDS.h"
 Cjrs#include "ATMSIZE.h"  
26  #include "OCNSIZE.h"  #include "OCNSIZE.h"
 Cjrs#include "ATMIDS.h"  
27  #include "OCNIDS.h"  #include "OCNIDS.h"
28    
29  CEndOfInterface  CEndOfInterface
# Line 40  C     to report its attributes. The attr Line 38  C     to report its attributes. The attr
38  C     include information on the grid region that a particular process "owns"  C     include information on the grid region that a particular process "owns"
39  C     and sends out information from.  C     and sends out information from.
40    
 C     Get attributes for atmosphere component.  
 Cjrs      CALL CPL_REGISTER_ATM  
   
41  C     Get attributes for ocean component.  C     Get attributes for ocean component.
42        CALL CPL_REGISTER_OCN        CALL CPL_REGISTER_OCN
43    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22