ice_var.h

Go to the documentation of this file.

/*
** git $id$
*************************************************** hernan g. arango ***
** copyright(c) 2002-2025 the roms group                             **
**   licensed under a mit/x style license                             **
**   see license_roms.md                                              **
************************************************************************
**                                                                    **
**  assigns metadata indices for the sea ice model(budgell, 2005;    **
**  durski and kurapov, 2019, 2020) variables that are used in input  **
**  and output netcdf files.  the metadata information is read from   **
**  "varinfo.yaml".                                                   **
**                                                                    **
**  this file is included in file "mod_ncparam.F", routine            **
**  "initialize_ncparm".                                              **
**                                                                    **
************************************************************************
*/
 
/*
**  ice state variables.
*/
 
          CASE ('idAice')
            idaice=varid
            isice(isaice)=idaice
          CASE ('idHage')
            idhage=varid
            isice(ishage)=idhage
          CASE ('idHice')
            idhice=varid
            isice(ishice)=idhice
          CASE ('idHmel')
            idhmel=varid
            isice(ishmel)=idhmel
          CASE ('idHsno')
            idhsno=varid
            isice(ishsno)=idhsno
          CASE ('idIage')
            idiage=varid
            isice(isiage)=idiage
          CASE ('idISxx')
            idisxx=varid
            isice(isisxx)=idisxx
          CASE ('idISxy')
            idisxy=varid
            isice(isisxy)=idisxy
          CASE ('idISyy')
            idisyy=varid
            isice(isisyy)=idisyy
          CASE ('idTice')
            idtice=varid
            isice(istice)=idtice
          CASE ('idUice')
            iduice=varid
            isice(isuice)=iduice
          CASE ('idVice')
            idvice=varid
            isice(isvice)=idvice
          CASE ('idAiCL')
            idaicl=varid
          CASE ('idHiCL')
            idhicl=varid
          CASE ('idIOfv')
            idiofv=varid
            ifice(iciofv)=idiofv
          CASE ('idIOmf')
            idiomf=varid
            ifice(iciomf)=idiomf
          CASE ('idIOmt')
            idiomt=varid
            ifice(iciomt)=idiomt
          CASE ('idIsst')
            idisst=varid
            ifice(icisst)=idisst
          CASE ('idS0mk')
            ids0mk=varid
            ifice(ics0mk)=ids0mk
          CASE ('idT0mk')
            idt0mk=varid
            ifice(ict0mk)=idt0mk
          CASE ('idUiCL')
            iduicl=varid
          CASE ('idUiER')
            iduier=varid
          CASE ('idViCL')
            idvicl=varid
          CASE ('idViNR')
            idvinr=varid
          CASE ('idWdiv')
            idwdiv=varid
            ifice(icwdiv)=idwdiv
          CASE ('idW_ai')
            idw_ai=varid
            ifice(icw_ai)=idw_ai
          CASE ('idW_ao')
            idw_ao=varid
            ifice(icw_ao)=idw_ao
          CASE ('idW_fr')
            idw_fr=varid
            ifice(icw_fr)=idw_fr
          CASE ('idW_io')
            idw_io=varid
            ifice(icw_io)=idw_io
          CASE ('idW_ro')
            idw_ro=varid
            ifice(icw_io)=idw_io
/*
**  ice model open boundary conditions.
*/
 
          CASE ('isAice(iwest)')
            iceobc(iwest,isaice)=varid
          CASE ('isAice(ieast)')
            iceobc(ieast,isaice)=varid
          CASE ('isAice(isouth)')
            iceobc(isouth,isaice)=varid
          CASE ('isAice(inorth)')
            iceobc(inorth,isaice)=varid
 
          CASE ('isHice(iwest)')
            iceobc(iwest,ishice)=varid
          CASE ('isHice(ieast)')
            iceobc(ieast,ishice)=varid
          CASE ('isHice(isouth)')
            iceobc(isouth,ishice)=varid
          CASE ('isHice(inorth)')
            iceobc(inorth,ishice)=varid
 
          CASE ('isHmel(iwest)')
            iceobc(iwest,ishmel)=varid
          CASE ('isHmel(ieast)')
            iceobc(ieast,ishmel)=varid
          CASE ('isHmel(isouth)')
            iceobc(isouth,ishmel)=varid
          CASE ('isHmel(inorth)')
            iceobc(inorth,ishmel)=varid
 
          CASE ('isHsno(iwest)')
            iceobc(iwest,ishsno)=varid
          CASE ('isHsno(ieast)')
            iceobc(ieast,ishsno)=varid
          CASE ('isHsno(isouth)')
            iceobc(isouth,ishsno)=varid
          CASE ('isHsno(inorth)')
            iceobc(inorth,ishsno)=varid
 
          CASE ('isIage(iwest)')
            iceobc(iwest,isiage)=varid
          CASE ('isIage(ieast)')
            iceobc(ieast,isiage)=varid
          CASE ('isIage(isouth)')
            iceobc(isouth,isiage)=varid
          CASE ('isIage(inorth)')
            iceobc(inorth,isiage)=varid
 
          CASE ('isISxx(iwest)')
            iceobc(iwest,isisxx)=varid
          CASE ('isISxx(ieast)')
            iceobc(ieast,isisxx)=varid
          CASE ('isISxx(isouth)')
            iceobc(isouth,isisxx)=varid
          CASE ('isISxx(inorth)')
            iceobc(inorth,isisxx)=varid
 
          CASE ('isISxy(iwest)')
            iceobc(iwest,isisxy)=varid
          CASE ('isISxy(ieast)')
            iceobc(ieast,isisxy)=varid
          CASE ('isISxy(isouth)')
            iceobc(isouth,isisxy)=varid
          CASE ('isISxy(inorth)')
            iceobc(inorth,isisxy)=varid
 
          CASE ('isISyy(iwest)')
            iceobc(iwest,isisyy)=varid
          CASE ('isISyy(ieast)')
            iceobc(ieast,isisyy)=varid
          CASE ('isISyy(isouth)')
            iceobc(isouth,isisyy)=varid
          CASE ('isISyy(inorth)')
            iceobc(inorth,isisyy)=varid
 
          CASE ('isTice(iwest)')
            iceobc(iwest,istice)=varid
          CASE ('isTice(ieast)')
            iceobc(ieast,istice)=varid
          CASE ('isTice(isouth)')
            iceobc(isouth,istice)=varid
          CASE ('isTice(inorth)')
            iceobc(inorth,istice)=varid
 
          CASE ('isUice(iwest)')
            iceobc(iwest,isuice)=varid
          CASE ('isUice(ieast)')
            iceobc(ieast,isuice)=varid
          CASE ('isUice(isouth)')
            iceobc(isouth,isuice)=varid
          CASE ('isUice(inorth)')
            iceobc(inorth,isuice)=varid
 
          CASE ('isVice(iwest)')
            iceobc(iwest,isvice)=varid
          CASE ('isVice(ieast)')
            iceobc(ieast,isvice)=varid
          CASE ('isVice(isouth)')
            iceobc(isouth,isvice)=varid
          CASE ('isVice(inorth)')
            iceobc(inorth,isvice)=varid