#ifdef CPP_GPUM MODULE s2s USE s2s_mod END MODULE s2s #else ! s2s wrapper MODULE s2s PRIVATE PUBLIC s2s_initialize CONTAINS SUBROUTINE s2s_initialize() USE stack_mod USE dimphy IMPLICIT NONE CALL stack_init_pool(1024*1024*50, klon) END SUBROUTINE s2s_initialize END MODULE s2s #endif