CICE.F90
Go to the documentation of this file.00001 !======================================================================= 00002 ! Copyright 2008, LANSLLC. All rights reserved. 00003 ! Unless otherwise indicated, this information has been authored by an 00004 ! employee or employees of the Los Alamos National Security, LLC (LANS), 00005 ! operator of the Los Alamos National Laboratory under Contract No. 00006 ! DE-AC52-06NA25396 with the U.S. Department of Energy. The U.S. Government 00007 ! has rights to use, reproduce, and distribute this information. The public 00008 ! may copy and use this information without charge, provided that this 00009 ! Notice and any statement of authorship are reproduced on all copies. 00010 ! Neither the Government nor LANS makes any warranty, express or implied, 00011 ! or assumes any liability or responsibility for the use of this 00012 ! information. 00013 ! 00014 ! CICE is developed and maintained by Elizabeth C. Hunke (eclare@lanl.gov) 00015 ! and William H. Lipscomb (lipscomb@lanl.gov) of Group T-3 (Fluid 00016 ! Dynamics), Los Alamos National Laboratory, with support from the 00017 ! Climate Change Prediction Program (CCPP) and the Scientific 00018 ! Discovery through Advanced Computing (SciDAC) program of the U.S. 00019 ! Department of Energy. We thank John Dukowicz (T-3), Phil Jones (T-3), 00020 ! and Robert Malone (CCS-2) for their support of the sea ice modeling 00021 ! effort at LANL. 00022 ! 00023 ! CICE has been developed in close collaboration with the NCAR CCSM 00024 ! climate modeling project and includes ideas and efforts from 00025 ! members the CCSM Polar Climate Working Group (PCWG). We especially 00026 ! thank the following members of the PCWG code development team: 00027 ! 00028 ! Cecilia Bitz, UW 00029 ! Bruce Briegleb, NCAR 00030 ! Tony Craig, NCAR 00031 ! John Dennis, NCAR 00032 ! Marika Holland, NCAR 00033 ! Bonnie Light, UW 00034 ! Julie Schramm, NCAR 00035 ! David Bailey, NCAR 00036 ! 00037 ! Assistance from researchers from U.K. Met Office Hadley Centre is 00038 ! also much appreciated, especially our collaboration with Alison 00039 ! McLaren and Ann Keen. Numerous others have contributed to this 00040 ! effort--thanks to all! 00041 !======================================================================= 00042 !BOP 00043 ! 00044 ! !ROUTINE: debug_ice - wrapper for print_state 00045 ! 00046 ! !DESCRIPTION: 00047 ! 00048 ! Wrapper for the print_state debugging routine. 00049 ! Useful for debugging in the main driver (see ice.F_debug) 00050 ! ip, jp, mtask are set in ice_diagnostics.F 00051 ! 00052 ! !REVISION HISTORY: 00053 ! 00054 ! author Elizabeth C. Hunke, LANL 00055 ! 00056 ! !INTERFACE: 00057 ! 00058 subroutine debug_ice(plabeld) 00059 ! 00060 ! !USES: 00061 ! 00062 use ice_kinds_mod 00063 use ice_diagnostics 00064 use ice_domain, only: nblocks 00065 use ice_blocks, only: nx_block, ny_block 00066 ! 00067 ! !INPUT/OUTPUT PARAMETERS: 00068 ! 00069 character (char_len), intent(in) :: plabeld 00070 ! 00071 !EOP 00072 ! 00073 integer (kind=int_kind) :: i, j, iblk 00074 00075 do iblk = 1, nblocks 00076 do j = 1, ny_block 00077 do i = 1, nx_block 00078 if (iblk==iblkp .and. i==ip .and. j==jp .and. my_task==mtask) & 00079 call print_state(plabeld,i,j,iblk) 00080 enddo 00081 enddo 00082 enddo 00083 00084 end subroutine debug_ice 00085 00086 !=======================================================================
