Called by :
nests_to_open (frame/module_nesting.F) wrf_init (share/module_wrf_top.F)
1. id_id :: INTEGER , INTENT( INOUT ) 2. max_dom :: INTEGER , INTENT( OUT )