Line data    Source code

       1             : !=======================================================================
       2             : ! Copyright (c) 2023, Triad National Security, LLC
       3             : ! All rights reserved.
       4             : !
       5             : ! Copyright 2023. Triad National Security, LLC. This software was
       6             : ! produced under U.S. Government contract DE-AC52-06NA25396 for Los
       7             : ! Alamos National Laboratory (LANL), which is operated by Triad
       8             : ! National Security, LLC for the U.S. Department of Energy. The U.S.
       9             : ! Government has rights to use, reproduce, and distribute this software.
      10             : ! NEITHER THE GOVERNMENT NOR TRIAD NATIONAL SECURITY, LLC MAKES ANY
      11             : ! WARRANTY, EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF
      12             : ! THIS SOFTWARE. If software is modified to produce derivative works,
      13             : ! such modified software should be clearly marked, so as not to confuse
      14             : ! it with the version available from LANL.
      15             : !
      16             : ! The full license and distribution policy are available from
      17             : ! https://github.com/CICE-Consortium
      18             : !
      19             : !=======================================================================
      20             : !
      21             : ! Main driver routine for CICE.  Initializes and steps through the model.
      22             : ! This program should be compiled if CICE is run as a separate executable,
      23             : !  but not if CICE subroutines are called from another program (e.g., CAM).
      24             : !
      25             : ! authors Elizabeth C. Hunke and William H. Lipscomb, LANL
      26             : !
      27             : ! 2006: Converted to free form source (F90) by Elizabeth Hunke
      28             : ! 2008: E. Hunke moved ESMF code to its own driver
      29             : !
      30          37 :       program icemodel
      31             : 
      32          37 :       use CICE_InitMod
      33             :       use CICE_RunMod
      34             :       use CICE_FinalMod
      35             : 
      36             :       implicit none
      37             :       character(len=*), parameter :: subname='(icemodel)'
      38             : 
      39             :       !-----------------------------------------------------------------
      40             :       ! Initialize CICE
      41             :       !-----------------------------------------------------------------
      42             : 
      43          37 :       call CICE_Initialize
      44             : 
      45             :       !-----------------------------------------------------------------
      46             :       ! Run CICE
      47             :       !-----------------------------------------------------------------
      48             : 
      49          37 :       call CICE_Run
      50             : 
      51             :       !-----------------------------------------------------------------
      52             :       ! Finalize CICE
      53             :       !-----------------------------------------------------------------
      54             : 
      55          37 :       call CICE_Finalize
      56             : 
      57          37 :       end program icemodel
      58             : 
      59             : !=======================================================================