/[MITgcm]/MITgcm/pkg/atm2d/atm2d_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/atm2d/atm2d_init_fixed.F

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

revision 1.4 by jscott, Thu Jun 2 21:33:21 2011 UTC revision 1.5 by jmc, Mon Dec 2 23:54:43 2013 UTC
# Line 39  C     myThid - thread number for this in Line 39  C     myThid - thread number for this in
39  C     === Local variables ===  C     === Local variables ===
40  #ifdef OCEAN_3D  #ifdef OCEAN_3D
41        INTEGER nCouplePer    !not a subroutine parm for OCEAN_3D        INTEGER nCouplePer    !not a subroutine parm for OCEAN_3D
42    # ifdef ATM2D_MPI_ON
43          INTEGER msgUnit
44    # endif
45  #endif  #endif
46    
47        CALL CHECK_SETTINGS        CALL CHECK_SETTINGS
# Line 90  C     Perform registration with other co Line 93  C     Perform registration with other co
93    
94  C     Coordinate the transfer configuration information  C     Coordinate the transfer configuration information
95  C     between components  C     between components
96        CALL RECEIVE_COMPONENT_CONFIGS        msgUnit = standardMessageUnit
97        CALL SENDOUT_COMPONENT_CONFIGS        CALL EXCH_COMPONENT_CONFIGS(
98         I                             msgUnit )
99  #  endif  #  endif
100    
101        CALL INIT_ATM2D(dtatm, dtocn, dtcouple, myThid)        CALL INIT_ATM2D(dtatm, dtocn, dtcouple, myThid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22