資源簡介
可以在f77, f90, g77, pgf77,CVF 等編譯器中直接運行。POM2K代碼有兩個實例用戶可以自由選擇:1)一個河道水流的模型,此模型的所有參數都在代碼中直接進行了設定。2)一個河口模型實例。該模型的網格文件IC直接以原文件的形式提供。河口模型的輸入文件是通過GRID-DATA/GRID.f文件生成的。用戶在建議自己的模型時要設置自己的模型網格,收集細化資料如:地形、溫鹽、表面風場及熱能量等。通過將數據插值到網格點來生成模型初始重要條件、強迫條件。在GRID-DATA中的代碼是用來做插值處理的有效工具,可幫助我們生成IC文件,作為模型輸入。

代碼片段和文件信息
C***********************************************************************
C
C?????Common?blocks?for?pom2k.f
C
C***********************************************************************
C
C?????source_c?should?agree?with?source?in?pom2k.f.
C
??????character*40?source_c
??????parameter(source_c=‘pom2k??2004-01-08‘)
C
C***********************************************************************
C
C?????Array?sizes:
C
??????integer
?????$??im?????????????imm1???????????imm2???????????jm?????????????
?????$??jmm1???????????jmm2???????????kb?????????????kbm1???????????
?????$??kbm2?
C
C***********************************************************************
C
C?????Set?size?of?problem?here:
C
c?????parameter
c?--?file2ic?(iproblem=3)
c????$?(im=41??????????jm=61??????????kb=16)
c?--?seamount?(iproblem=1)
c????$?(im=65??????????jm=49??????????kb=21)
C?----?from?parameter?file?generated?by?runpom2k?----
??????include?‘grid‘
C
C***********************************************************************
C?????????????????????????????????????
??????parameter
?????$?(imm1=im-1??????imm2=im-2??????jmm1=jm-1??????jmm2=jm-2??????
?????$??kbm1=kb-1??????kbm2=kb-2??????)
C
C-----------------------------------------------------------------------
C
C?????Scalars:
C
??????real
?????$??alpha??????????dte????????????dti????????????dti2?????????????
?????$??grav???????????hmax???????????kappa??????????pi?????????????
?????$??ramp???????????rfe????????????rfn????????????rfs????????????
?????$??rfw????????????rhoref?????????sbias??????????slmax??????????
?????$??small??????????tbias??????????time???????????tprni??????????
?????$??umol???????????vmaxl
??????integer
?????$??iint???????????iprint?????????iskp???????????jskp???????????
?????$??kl1????????????kl2????????????mode???????????ntp
C
??????common/blkcon/?
?????$??alpha??????????dte????????????dti????????????dti2???????????
?????$??grav???????????hmax???????????kappa??????????pi?????????????
?????$??ramp???????????rfe????????????rfn????????????rfs????????????
?????$??rfw????????????rhoref?????????sbias??????????slmax??????????
?????$??small??????????tbias??????????time???????????tprni??????????
?????$??umol???????????vmaxl??????????
?????$??iint???????????iprint?????????iskp???????????jskp???????????
?????$??kl1????????????kl2????????????mode???????????ntp
C
C-----------------------------------------------------------------------
C
C?????1-D?arrays:
C
??????real
?????$??dz?????????????dzz????????????z??????????????zz
C
??????common/blk1d/?
?????$??dz(kb)?????????dzz(kb)????????z(kb)??????????zz(kb)?
C
C-----------------------------------------------------------------------
C
C?????2-D?arrays:
C
??????real
?????$??aam2d??????????advua??????????advva??????????adx2d??????????
?????$??ady2d??????????art????????????aru????????????arv????????????
?????$??cbc??????????
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????33??2004-04-19?16:36??POM\POM2K\2004-04-12
?????文件???????3106??2004-04-19?16:36??POM\POM2K\A_README.Hunter
?????文件????1608051??2004-04-19?16:37??POM\POM2K\IC.dat
?????文件???????7916??2004-04-19?16:38??POM\POM2K\pom2k.c
?????文件???????4093??2004-04-19?16:38??POM\POM2K\pom2k.change
?????文件?????191173??2004-04-19?16:38??POM\POM2K\pom2k.f
?????文件??????24175??2004-04-19?16:38??POM\POM2K\pom2k.n
?????文件?????410321??2004-04-19?16:38??POM\POM2K\pom2k.Prob1.out
?????文件?????312811??2004-04-19?16:39??POM\POM2K\pom2k.Prob3.out
?????文件??????71680??2004-04-19?16:39??POM\POM2K\pomviz.tar
?????文件??????22218??2004-04-19?16:39??POM\POM2K\pomviz.zip
?????文件???????7998??2004-04-19?16:35??POM\POM2K\PREVIOUSversions\2002-02-02\pom2k.c
?????文件?????190035??2004-04-19?16:35??POM\POM2K\PREVIOUSversions\2002-02-02\pom2k.f
?????文件??????25182??2004-04-19?16:35??POM\POM2K\PREVIOUSversions\2002-02-02\pom2k.n
?????目錄??????????0??2005-06-24?19:20??POM\POM2K\PREVIOUSversions\2002-02-02
?????目錄??????????0??2004-11-05?18:00??POM\POM2K\PREVIOUSversions\2003-09-09
?????目錄??????????0??2004-11-05?18:00??POM\POM2K\PREVIOUSversions\2003-09-24
?????目錄??????????0??2005-06-24?19:20??POM\POM2K\PREVIOUSversions
?????文件???????1182??2004-04-19?16:39??POM\POM2K\runpom2k
?????文件???????3054??2004-04-19?16:36??POM\POM2K\USERScomments\2002.02.25_Lobocki
?????文件???????2787??2004-04-19?16:36??POM\POM2K\USERScomments\2002.02.28_Narinesingh
?????文件???????1200??2004-04-19?16:36??POM\POM2K\USERScomments\2002.03.14_Lanucara
?????文件???????3146??2004-04-19?16:36??POM\POM2K\USERScomments\2002.09.06_Hunter
?????目錄??????????0??2005-06-24?19:20??POM\POM2K\USERScomments
?????目錄??????????0??2005-06-24?19:20??POM\POM2K
?????文件?????198705??2004-05-20?13:08??POM\POM中文說明書.pdf
?????目錄??????????0??2005-06-24?19:20??POM
-----------?---------??----------?-----??----
??????????????3089084????????????????????28
............此處省略1個文件信息
- 上一篇:瑞利萊斯對數正態分布仿真
- 下一篇:云安全論文
評論
共有 條評論