source: LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/s2s.F90 @ 5919

#ifdef CPP_GPUM
  MODULE s2s
    USE s2s_mod 
    INTEGER, PUBLIC, PARAMETER :: s2s_str_maxlen = 256
  END MODULE s2s
#else

! s2s wrapper
  MODULE s2s
  
   PRIVATE
    INTEGER, PARAMETER :: s2s_str_maxlen = 256

    PUBLIC s2s_initialize, s2s_finalize, s2s_gpu_activated, s2s_register_activated, s2s_str_maxlen 

  CONTAINS

    SUBROUTINE s2s_initialize()
    END SUBROUTINE s2s_initialize
    
    SUBROUTINE s2s_finalize()
    END SUBROUTINE s2s_finalize

    FUNCTION s2s_gpu_activated()
      IMPLICIT NONE
      LOGICAL :: s2s_gpu_activated
      s2s_gpu_activated=.FALSE.
    END FUNCTION s2s_gpu_activated

    FUNCTION s2s_register_activated()
      IMPLICIT NONE
      LOGICAL :: s2s_register_activated
      s2s_register_activated=.FALSE.
    END FUNCTION s2s_register_activated

  END MODULE s2s

#endif