pkg/atm2d/atm2d_finish.F

09a6f3668a Jeff*0001 #include "ctrparam.h"
                0002 #ifdef OCEAN_3D
                0003 #  include "ATM2D_OPTIONS.h"
                0004 #endif
                0005 C
7b5b62b00f Jeff*0006       SUBROUTINE ATM2D_FINISH( myThid)
09a6f3668a Jeff*0007 C     |==========================================================|
                0008 C     | Called from forward_step_atm2d the last time through the |
                0009 C     | main loop -- thus, and opportunity to shut down MPI, do  |
                0010 C     | cleanup/finish routines.                                 |
                0011 C     \==========================================================/
                0012       IMPLICIT NONE
                0013
                0014 #  ifdef ATM2D_MPI_ON
                0015 #    include "mpif.h"
                0016 #  endif
                0017
                0018 C     !INPUT/OUTPUT PARAMETERS:
                0019 C     == Routine arguments ==
                0020 C     myIter - iteration counter for this thread
                0021 C     myTime - time counter for this thread
                0022 C     myThid - thread number for this instance of the routine.
                0023       INTEGER myThid
                0024
                0025 C     === Local variables ===
e3db844e04 Jeff*0026
09a6f3668a Jeff*0027 #ifdef OCEAN_3D
                0028       INTEGER rc
                0029 #endif
                0030
e3db844e04 Jeff*0031 #ifdef CLM35
260186e531 Jeff*0032 C     next line is hack to call clm one more time step
e3db844e04 Jeff*0033 C     as CLM35 writes end-of-year file at start of next year
260186e531 Jeff*0034       CALL clm4mit2d
e3db844e04 Jeff*0035 #endif
                0036
09a6f3668a Jeff*0037 #ifdef ATM2D_MPI_ON
                0038       CALL MPI_BARRIER( MPI_COMM_WORLD, rc )
                0039       CALL MPI_FINALIZE(rc)
                0040 #endif
                0041
                0042       RETURN
                0043       END