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

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

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

revision 1.1 by jscott, Tue Aug 22 20:23:13 2006 UTC revision 1.2 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 38  C     Register this process as the "coup Line 38  C     Register this process as the "coup
38  C     only be one coupler participant all others are "component" participants.  C     only be one coupler participant all others are "component" participants.
39        CALL MITCOUPLER_INIT( cplCompName, MPI_COMM_Coupler )        CALL MITCOUPLER_INIT( cplCompName, MPI_COMM_Coupler )
40    
 Cjrs      CALL CPL_READ_PARAMS  
   
 Cjrs      CALL SET_RUNOFFMAP  
   
41        RETURN        RETURN
42        END        END
43  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22