📄 cldinti.f90
字号:
#include <misc.h>#include <params.h>subroutine cldinti () use precision use pmgrid, only: plev, plevp, masterproc use cldconst#include <comhyb.h>!! Find vertical level nearest 700 mb! k700 = 1 do k=1,plev-1 if (hypm(k) < 7.e4 .and. hypm(k+1) >= 7.e4) then if (7.e4-hypm(k) < hypm(k+1)-7.e4) then k700 = k else k700 = k + 1 end if goto 20 end if end do write(6,*)'INTI: model levels bracketing 700 mb not found' call endrun20 continue if (masterproc) then write(6,*)'INTI: model level nearest 700 mb is',k700,'which is',hypm(k700),'pascals' end if returnend subroutine cldinti
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -