Class | physics_hs94forcing_mod |
In: |
src/shared/physics/physics_hs94forcing.f90
src/shared/physics/physics_hs94forcing_2004-12-24-23-58-58.f90 |
本来はここで、実験設定と ((< constants_mod >)) の値との比較を 行ないたいが、まだ実装されていない。 (実数同士のそのままの比較は難しいので、有効数字数桁と指数部分を 比較するようにすべきだろう)。
subroutine physics_hs94forcing_init !==== Dependency !=end implicit none character(STRING), parameter:: subname = "physics_hs94forcing_init" continue !---------------------------------------------------------------- ! Check Initialization !---------------------------------------------------------------- call BeginSub(subname) if (physics_hs94forcing_initialized) then call EndSub( subname, '%c is already called.', c1=trim(subname) ) return else physics_hs94forcing_initialized = .true. endif !---------------------------------------------------------------- ! Version identifier !---------------------------------------------------------------- call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname)) !------------------------------------------------------------------- ! Initialize Dependent modules !------------------------------------------------------------------- call constants_init call grid_3d_init !------------------------------------------------------------------- ! Allocate variables !------------------------------------------------------------------- allocate( xyz_Sigma(im, jm, km) , xyz_kv(im, jm, km) , xyz_Press(im, jm, km) , xyz_SinLat(im, jm, km) , xyz_CosLat(im, jm, km) , xyz_TempEQ(im,jm,km) , xyz_kt(im,jm,km) ) ! k_t call EndSub(subname) end subroutine physics_hs94forcing_init