/[MITgcm]/MITgcm/pkg/atm_ocn_coupler/initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_ocn_coupler/initialise.F

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

revision 1.4 by jmc, Mon Dec 2 21:55:06 2013 UTC revision 1.5 by jmc, Mon Oct 26 13:11:32 2015 UTC
# Line 57  C     only be one coupler participant al Line 57  C     only be one coupler participant al
57    
58        CALL SET_RUNOFFMAP( msgUnit )        CALL SET_RUNOFFMAP( msgUnit )
59    
60    C--   Initialise Coupler field arrays
61          CALL CPL_INIT_ATM_VARS( msgUnit )
62          CALL CPL_INIT_OCN_VARS( msgUnit )
63    
64        RETURN        RETURN
65        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22