?? spmd_phys.f90
字號:
#include <misc.h>#include <params.h>module spmd_phys!----------------------------------------------------------------------- ! ! Purpose: SPMD implementation of CAM for physics.! ! Author: CCM Core Group! !----------------------------------------------------------------------- use precision, only: r8 use pmgrid, only: beglat, endlat use ppgrid, only: begchunk, endchunk implicit none private public is_366_physics public spmdinit_physCONTAINS!======================================================================== subroutine spmdinit_phys () begchunk = beglat endchunk = endlat return end subroutine spmdinit_phys logical function is_366_physics ( ) is_366_physics = .false. return end function is_366_physicsend module spmd_phys
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -